I am trying to adjust my macro (listed below).  I would like for it to go to a specific sheet when I enter the name. However, when I enter a numeric title (i.e, 16R) it seems to go to sheet 16.  Can you tell me how to fix the problem?  Thanks

Sub GotoSheet()

' Macro2 Macro
' GoToSheet
'
Dim sSheet As String

sSheet = InputBox( _
  Prompt:="Sheet name or number?", _
  Title:="Input Sheet")
On Error GoTo noSheet
If Val(sSheet) > 0 Then
    Worksheets(Val(sSheet)).Activate
    Exit Sub
Else
    Worksheets(sSheet).Activate
    Exit Sub
End If

noSheet:
'Enter your code to display a warning that the sheet does not exist
'and/or bring up a selection box of all sheets
MsgBox "Sheet not found."
End Sub