How to make sure a Cell is within the current visible window's ran
 

as Title

How to make sure a Cell is within the current visible window's ran
 

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

How to make sure a Cell is within the current visible window's ran
 

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