Option Explicit Sub CreateSheetsFromTemplate() Dim wsT As Worksheet Dim wsNames As Range, Rng As Range Set wsT = Sheets("Template") Set wsNames = Sheet2.Range("A2:A" & Rows.Count).SpecialCells(2) Application.ScreenUpdating = False For Each Rng In wsNames If Not Evaluate("ISREF('" & CStr(Rng.Text) & "'!A1)") Then wsT.Copy After:=Sheets(Sheets.Count) ActiveSheet.Name = CStr(Rng.Text) End If Next Rng wsT.Select Application.ScreenUpdating = True End Sub
DON'T MISS