Excel 2003 positioning a cell to first non frozen cell

[JackGombola]

Hello All: I have an Excel 2003 spreadsheet that looks like this:
A B C
1 Lastname Firstname Col1 Col2 Col3 … Col111
2 Lname 1 Fname1 FZN

 

[Nelson]

Hi Jack,
I find auto filter is a better way to zoom into the record.

Sub Nelson()
Dim Lrow As Long
If ActiveSheet.AutoFilterMode Then
ActiveSheet.AutoFilterMode = False
Range("A2").Select
End If

ActiveSheet.Rows(1).AutoFilter
Rows(1).AutoFilter Field:=1, Criteria1:="Jack"
Rows(1).AutoFilter Field:=2, Criteria1:="Gombola"
Lrow = Cells(65536, 1).End(xlUp).Row
Range("IV" & Lrow & "").Select
'Data taken from your input box Col111
Cells(Lrow, 111).Select

End Sub

 

[Gord Dibben]

where = InputBox("enter a location")
Application.Goto Range(where), Scroll:=True


Gord Dibben MS Excel MVP

 

[JackGombola]

Thank you all for your responses. I learned from each but have decided to go
with Allllen's solution.
I most appreciate your collaboration.
Jack