Excel 2003 positioning a cell to first non frozen cell
 

Hiya Jack

This seems to work. If you have got the inputbox working you will be well
capable of replacing Cells.Find("X") with the range you are trying to get to

Sub Allllen()

Dim rgTarget As Range

Set rgTarget = Cells.Find("X")

iSR = ActiveWindow.ScrollRow
iSC = ActiveWindow.ScrollColumn

iTR = rgTarget.Row
iTC = rgTarget.Column

iVertAdj = iTR - iSR
iHorAdj = iTC - iSC

ActiveWindow.SmallScroll ToRight:=iHorAdj
ActiveWindow.SmallScroll Down:=iVertAdj

End Sub
--
Allllen


"JackGombola" wrote:

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
.
.
.
101 Lname100 Fname100 X

Column C2 is frozen (FZN text above) so that I can scroll the columns and
rows without loosing my lastnames or firstnames in each row, or the column
headings.

I respond to an InputBox with €œJack,Gombola,Col111€� and the macro correctly
finds the right target cell as Row 101, col 111 (X marks this cell). What I
would like the macro to do next is to scroll the sheet horizontally and
vertically so that the X cell becomes positioned to the first frozen
location: FZN shown above.

Any suggestions are appreciated.
Thanks,
Jack