Gurus,

I am attempting to read a list of employee names, create at worksheet, and rename the worksheet with the employees names. I get through the first loop but it stops at

Sheets("Do Not Delete (2)").Name = Name
On the second one. Below is the entire code. The error is run-time error '1004' Application-defined or object-defined error


Sub Create_Tabs()
Dim Findrow As Range
Dim RowNum As Long
Dim i As Integer
Dim Name As String


Set Findrow = Range("B:B").Find(What:="Total Hours", LookIn:=xlValues)
RowNum = Findrow.Row - 1

For i = 4 To RowNum
Name = Cells(i, 2).Value

Sheets("Do Not Delete").Select
    Sheets("Do Not Delete").Copy Before:=Sheets("Do Not Delete")
    Sheets("Do Not Delete (2)").Select
    Sheets("Do Not Delete (2)").Name = Name


Next i

End Sub
Any Clues?

TIA,
Tim