Sub test()
Range("A42").Select
ActiveWindow.ScrollRow = 40
ActiveWindow.ScrollColumn = 1
End Sub

HTH. Best wishes Harald

"WalterK" wrote in message
...
Hi
I would like to write a macro that lets me go fra a button placed in A1 to
for example cell A40 and the row 40 should be the first line on the
screen..
I then want the macro to move the cursor 2 rows down and still have row 40
as
the first line on the sceen.

Anybody that can help