Scroll the window to the top - frozen rows

[Guest]

Hey all,

I've got some code that marches down a bunch of cells (about 700 rows) and
applies formatting and formulas. When it's done, I want it to jump back up to
the top. I was able to simply say

ActiveWorksheet.Range("A1").Select

to do what I wanted.

However, I froze the first row because it contains column headers. Now I
can't get the window to go back to the top. I've tried

ActiveWindow.ScrollRow = 1
and
ActiveWindow.ScrollRow = 2 (Only the first row is frozen).

Neither of them work. Any ideas?

 

[Rob van Gelder]

Sub test()
Dim i As Long, j As Long

i = ActiveWindow.SplitRow + 1
If i = 1 Then i = Selection.Row
j = ActiveWindow.SplitColumn + 1
If j = 1 Then j = Selection.Column
Cells(i, j).Select
End Sub

 

[Ivan F Moala]

you could try

Application.Goto [A4], True

where A4 is the cell below your frozen row pane.

Look up the [Goto Method] in your VBA Help files for more info

 

[Guest]

MDW
Try
[A2].Select
[A1].Select

The A2 returns you to below your frozen row
The A1 becomes ActiveCell.

HTH

Bob C