Your solution looks pretty good.
--
Gary''s Student - gsnu200775


"ZipCurs" wrote:

I have hobbled together the following solution, which seems to work. If you
have any better, more elegant solutions, please let me know.

InWindow = False
LastPick = 1
Do
'Check to see if desired cell is visible yet
If TargetLine <= ActiveWindow.VisibleRange.Row Then
'If it is indicate as such
InWindow = True
Else
'If not, look to see if scroll even did anything
If LastPick = ActiveWindow.VisibleRange.Row Then
'If not, scrolling is done and cell should be visible
InWindow = True
Else
'If scroll did have an effect scroll again
LastPick = ActiveWindow.VisibleRange.Row
ActiveWindow.SmallScroll down:=1
End If
End If

Loop Until InWindow = True

"Gary''s Student" wrote:

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.