Adăugare foi de lucru denumite după o listă

Sursa: https://www.extendoffice.com/documents/excel/4386-excel-create-multiple-sheets-from-list.html#a1

Sub AddSheets()

'Updateby Extendoffice

    Dim xRg As Excel.Range

    Dim wSh As Excel.Worksheet

    Dim wBk As Excel.Workbook

    Set wSh = ActiveSheet

    Set wBk = ActiveWorkbook

    Application.ScreenUpdating = False

    For Each xRg In wSh.Range("A1:A7")

        With wBk

            .Sheets.Add after:=.Sheets(.Sheets.Count)

            On Error Resume Next

            ActiveSheet.Name = xRg.Value

            If Err.Number = 1004 Then

              Debug.Print xRg.Value & " already used as a sheet name"

            End If

            On Error GoTo 0

        End With

    Next xRg

    Application.ScreenUpdating = True

End Sub

Mod de lucru rapid: Se copie macrocomanda de mai sus (selecție text și Ctrl+C), se deschide registrul de lucru, apoi 

• Alt+F11 pentru a deschide fereastra VBA

• F7 pentru a deschide fereastra Code

• Ctrl+V pentru a adăuga în fereastră codul copiat în memoria clipboard și

• F5 pentru a executa macrocomanda.

Macrocomanda adaugă foi de lucru goale. 

Pentru a adăuga foi de lucru care să conțină date (având în registrul de lucru o foaie de lucru șablon), se poate scrie o macrocomandă care să copie foaia de lucru șablon, apoi să redenumească copiile - macrocomanda se află pe pagina Multiplicarea unei foi de lucru șablon.