as Title

set rng = Activesheet.Range("Z21")
if intersect(rng,ActiveWindow.VisibleRange) is nothing then
Application.GoTo rng, true
End if

--
Regards,
Tom Ogilvy


"OKLover" wrote in message
...
as Title

Please put the question in the body of the message, not the
subject line. Subject lines get truncated.
Try code like the following:


If Not Application.Intersect(ActiveWindow.VisibleRange, _
ActiveCell) Is Nothing Then
MsgBox "Visible"
Else
MsgBox "Not Visible"
End If


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com


"OKLover" wrote in message
...
as Title