Sheet Name
 

Hello,
I have some code that looks at sheetnames to see if any have been deleted.
The code is shown below. The problem I have is that if a sheet is named a
number,the code does not recognize the name: For example, suppose I have
sheet names 3 and the number 3 in cells(icount,4) in the code below. The
line:

If shtname.name = cells(icount,4) returns false.

How can I get around this? The code is below.

Thanks.

Bill

For ICount = 2 To LR
Foundit = "No"
For Each Shtname In Sheets
If Shtname.Name = Cells(ICount, 4) Then
Foundit = "Yes"
Exit For
End If
Next Shtname
If Foundit = "No" Then
Cells(ICount, 4).Delete shift:=xlUp
i = i - 1
End If
Next ICount
End If

Sheet Name
 

If shtname.name = cells(icount,4).Text then

or

If shtname.name = cstr(cells(icount,4).Value) then


--
regards,
Tom Ogilvy


"Bill" wrote in message
...
Hello,
I have some code that looks at sheetnames to see if any have been deleted.
The code is shown below. The problem I have is that if a sheet is named a
number,the code does not recognize the name: For example, suppose I have
sheet names 3 and the number 3 in cells(icount,4) in the code below. The
line:

If shtname.name = cells(icount,4) returns false.

How can I get around this? The code is below.

Thanks.

Bill

For ICount = 2 To LR
Foundit = "No"
For Each Shtname In Sheets
If Shtname.Name = Cells(ICount, 4) Then
Foundit = "Yes"
Exit For
End If
Next Shtname
If Foundit = "No" Then
Cells(ICount, 4).Delete shift:=xlUp
i = i - 1
End If
Next ICount
End If