code don't run

try to run from an button but don't run

why?

Dim sResult As String
  On Error Resume Next 'Blanket error handling
  
  'Display inputbox to prompt user for row/column
  sResult = InputBox("Type a row number or column letter and press Enter.", "Jump To...")
  
  If IsNumeric(sResult) Then 'Select row
    Cells(sResult, ActiveCell.Column).Select
  Else 'Select column
    Cells(ActiveCell.Row, sResult).Select
  End If

Open in new window

ADRIANA PACCOUNTING ASSISTANTAsked:
Who is Participating?
 
Ryan ChongConnect With a Mentor Commented:
it's working fine...

you got to type numeric to jump to specified row, OR char (like: A.... Z.... AB...) to jump to specified column
1
 
ADRIANA PACCOUNTING ASSISTANTAuthor Commented:
Ryan Chong

Thanks for the great Job !
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.