CELL - select and move to top ...

[itr674]

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

 

[itr674]

Well I figured out part of it. If I put the row number that 3333 is in that will take it to the top. But isnt there a way to do it withour have to put the row number in the procedure??/

 

[Expel]

You could try this

Sub GotoNum()
Dim Num As String
Num = InputBox("Enter number to find", "FindNum")

Range("A:A").Find(Num).Activate
ActiveWindow.ScrollRow = ActiveCell.Row

End Sub

In this case the value required is entered in an input box.