if sheet name exists then exit sub - error

Hello,

I have this code then works when it enters the if statement but when the condition is not satisfied then it returns runtime error 9, subscript out of range. Why does it work when the condition is satisfied and not when it doesn't?

If Sheets("Trial " & Trial_Name).name = "Trial " & Trial_Name Then
MsgBox "You have to rename your trial output (Cell E8)"
Exit Sub
End If

Trial name is a string and when the condition is satisfied then the messgage box apeared.

Thank you very much for the help. Have a nice day.

-Rob

& is forbidden chr in naming names

It's might be going into error because a sheet doesn't exist with that name which leads to a bigger question. Why on earth are you asking if an existing sheets name, has a name, which is it's name? Of course it is it's name.

It would be like going up to my friend Bob and saying; "Bob, if your name is Bob can you please pass me a beer".

If you are just trying to see if a sheet name exists there are other ways around it. Here is an example;

Sub test()
Dim wkshtcheck As Worksheet

Set wkshtcheck = Nothing
On Error Resume Next
    Set wkshtcheck = Sheets("NonExistentWorksheet")
On Error GoTo 0

If wkshtcheck Is Nothing Then
    MsgBox ("worksheet not found")
Else
    MsgBox ("worksheet found")
End If

End Sub

That worked great. Your analogy was perfect.

Thank you so much for your time. Have a nice day.

-Rob