Sub Macro1()

TargetLine = 99
Application.Goto Reference:=Cells(TargetLine, 5)
End Sub

--
Gary''s Student - gsnu200775


"ZipCurs" wrote:

I am running an macro on a worksheet that is has a horizontally split screen
that is frozen. In addition, I have set the ScrollArea to limit the range of
scrolling on the lower pane. At the end of my macro, I select a cell that is
in a row that I would like to be visible on the screen.

If I use something like:

ActiveWindow.LargeScroll Up:=10000
TargetR = TargetLine
ActiveWindow.ScrollRow = TargetR

It works great at bringing the desired cell to the top of the lower pane,
unless the limits of the scrollarea conflict, in which case this does not
work.

I tried:

Cells(TargetLine, 5).Select
CellBottom = ActiveCell.Top
ActiveWindow.Panes(1).ScrollIntoView Left:=0, Top:=CellBottom, Width:=100,
Height:=75, Start:=False

This kind of works by itself, but doesn't work everytime. When I embed this
in my macro it doesn't work at all.

I am not at all committed to having the cell at the top or bottom. I just
want it to be visible, work with Excel 2007, and for different computers that
might have different display dimensions.

Hopefully this is clear. Thank you in advance for any help.