getting error in the last line....my range is dynamic and may have blank cells in it
Sub Create_Central()
Dim sh1 As Worksheet, sh2 As Worksheet, c As Range
Set sh1 = Sheets("FSR Level A")
Set sh2 = Sheets("BI")
For Each c In sh2.Range("A18:A2700")
sh1.Copy After:=Sheets(Sheets.Count)
Activesheet.Name = c.Value
Next
End Sub
Sub Create_Central()
Dim sh1 As Worksheet, sh2 As Worksheet, c As Range
Set sh1 = Sheets("FSR Level A")
Set sh2 = Sheets("BI")
For Each c In sh2.Range("A18:A2700")
sh1.Copy After:=Sheets(Sheets.Count)
Activesheet.Name = c.Value
Next
End Sub