VisibleRange is a read-only property.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Gary''s Student" wrote in message
...
I can detect the visible range in the active worksheet with:

Sub Macro1()
Dim r As Range
Dim s As String
Set r = ActiveWindow.VisibleRange
s = r.Address
MsgBox (s)
End Sub

When, however, I try to setup the visible range with:

Sub Macro2()
Dim s As String
s = "$A$1:Z$100"
ActiveWindow.VisibleRange = Range(s)
End Sub

Nothing happens.

How can I adjust the scrollbars and zoom so that the upper left-hand cell
is
A1 and the lower right-hand cell is Z100 using VBA?

Thanks in Advance
--
Gary's Student