Help with Macro Dialog Box/loop

[Gman87]

Hello,

I have a code to look up and go to a sheet name, it functions as intended but the cancel button does not work.

Can someone please tell me how to either make the cancel button work to cancel the command or to end the loop with out getting a error message

Below is the code

Thank you

Function WorksheetExists(WSName As String) As Boolean
  On Error Resume Next
  WorksheetExists = Worksheets(WSName).Name = WSName
  On Error GoTo 0
End Function

Sub GotoSheet()
Dim shname As String
Do Until WorksheetExists(shname)
  shname = InputBox("Enter Tank Code")
  If Not WorksheetExists(shname) Then MsgBox shname & " Tank Code Doesn't Exist in File", vbExclamation
Loop
Sheets(shname).Select
End Sub

 

[vletm]

You missed Exit Sub ... like

Function WorksheetExists(WSName As String) As Boolean
    On Error Resume Next
        WorksheetExists = Worksheets(WSName).Name = WSName
    On Error GoTo 0
End Function

Sub GotoSheet()
Dim shname As String
    Do Until WorksheetExists(shname)
        shname = InputBox("Enter Tank Code")
        If Not WorksheetExists(shname) Then
            MsgBox shname & " Tank Code Doesn't Exist in File", vbExclamation
            Exit Sub
        End If
    Loop
    Sheets(shname).Select
End Sub

 

[Gman87]

Works like a charm!

Thank you very much!