Macro error

[Guest]

If you cancel the inputbox or enter in a invalid name it goes to debug. Here
is the macro I'm using:

Sub SelectSheet()
res = InputBox("Enter employee (sheet) name")
On Error Resume Next
Set sh = Worksheets(res)
On Error GoTo 0
If sh Is Nothing Then
MsgBox res & " isn not a valid sheet name"
Else
sh.Activate
End If
End Sub

Thanks,
Chance

 

[Tom Ogilvy]

In the VBE, go to Tools=>Options and in the General tab make sure you have
selected Break on Unhandled errors instead of Break on All Errors.

 

[Guest]

Break on unhandled errors is selected.

In the VBE, go to Tools=>Options and in the General tab make sure you have
selected Break on Unhandled errors instead of Break on All Errors.

 

[Tom Ogilvy]

My omission

this should do it:

Sub SelectSheet()
Dim sh As Worksheet
res = InputBox("Enter employee (sheet) name")
On Error Resume Next
Set sh = Worksheets(res)
On Error GoTo 0
If sh Is Nothing Then
MsgBox res & " isn not a valid sheet name"
Else
sh.Activate
End If
End Sub