Sub RunMe() Dim shName As String Sheets("Raw Data").Select For Each cell In Range("B1:B" & Range("B" & Rows.Count).End(xlUp).Row) If cell.Value = vbNullString Then GoTo NextCell shName = cell.Value Sheets("Template").Copy before:=Sheets("Template") ActiveSheet.Name = shName Range("B5").Value = shName NextCell: Next cell End Sub
DON'T MISS