Loop error

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

xladept,

That didn't work... However, I did find out that when it looped to cells(5,2) the value was blank. Which is why I get an error during the renaming of the worksheet. But there is a name in cell b5..

Stumped

Ohhhhh that makes sense.

Employee list is on sheet("QP")

Norie,

Thanks for your code. I simply added the QP sheets in front of the cell value. It works just like I wanted. Here is what I ended up with.

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

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

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

If Name = "" Then
GoTo Leap
End If

'MsgBox "Name = " & Name & "   RowNum = " & i
Sheets("Do Not Delete").Select
    Sheets("Do Not Delete").Copy Before:=Sheets("Do Not Delete")
    Sheets("Do Not Delete (2)").Select
    ActiveSheet.Name = Name
Leap:
Next i

End Sub

Tim