Application Goto Reference

[Halos]

Hello,

I created userform and added Application Goto reference in a code. The code is, when I add sheet name to the textbox5 then application goto reference goes to that sheet. But if that sheet doesn't exist, which code do I need to get msgbox that "sheet doesn't exist"? Please see below my code:

Private Sub CommandButton1_Click()
              
    Application.Goto Reference:=(TextBox5) & "!R1C1"

   
End Sub

Thanks in advance

 

[Norie]

Try this.

Dim strRef As String

    strRef = TextBox5.Value & "!R1C10"
    
    If Evaluate("ISREF(" & TextBox5.Value & "!A1)") Then
        Application.Goto ReferencE:=strRef
    End If

 

[Halos]

Try this.

Dim strRef As String

    strRef = TextBox5.Value & "!R1C10"
    
    If Evaluate("ISREF(" & TextBox5.Value & "!A1)") Then
        Application.Goto ReferencE:=strRef
    End If

Thanks for the response but code doesn't work. Please see below code and help:

Private Sub CommandButton1_Click()
             
    Application.Goto Reference:=(TextBox5) & "!R1C1"
    
'which code do I need to put here - get error message via msgbox, if there is no exist that "sheet name" which I put in TextBox5...

   
Unload yeniUserform1
End Sub

 

[Fluff]

How about

Private Sub CommandButton1_Click()
   
   If Evaluate("isref('" & TextBox5.Value & "'!A1)") Then
      Application.Goto Reference:=TextBox5.Value & "!R1C1"
   Else
      MsgBox "Sheet " & TextBox5.Value & " doen't exist"
   End If
   Unload yeniUserform1
End Sub

 

[Halos]

How about

Private Sub CommandButton1_Click()
   
   If Evaluate("isref('" & TextBox5.Value & "'!A1)") Then
      Application.Goto Reference:=TextBox5.Value & "!R1C1"
   Else
      MsgBox "Sheet " & TextBox5.Value & " doen't exist"
   End If
   Unload yeniUserform1
End Sub

Thanks, it is working now.

 

[Fluff]

You're welcome & thanks for the feedback

 

[Norie]

Kind of curious, did the code I posted cause an error?