I'm using the following code to jump to a certain cell, but I need selected cell to move to the top of the active window that it moves to. The code is executed when a control button on a custom command bar is clicked ...
the numbers 1111, 2222, 3333, 4444, 5555 are in cells a1, a10, a20, a30, a40 on sheet named 1111-5555.<pre>Sub GoTo3333()
Sheets("1111-5555").Select
Range("A1:A50").Find("3333").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 20
ActiveWindow.Zoom = 100
End Sub</pre>
This message was edited by em on 2003-01-31 23:48
the numbers 1111, 2222, 3333, 4444, 5555 are in cells a1, a10, a20, a30, a40 on sheet named 1111-5555.<pre>Sub GoTo3333()
Sheets("1111-5555").Select
Range("A1:A50").Find("3333").Select
ActiveWindow.ScrollColumn = 1
ActiveWindow.ScrollRow = 20
ActiveWindow.Zoom = 100
End Sub</pre>
This message was edited by em on 2003-01-31 23:48