Hi James,

This isn't quite one statement, but it's pretty close. Just change the
address of the scroll area to fit your needs.

Sub SetScrollArea()
Dim wksSheet As Worksheet
For Each wksSheet In ActiveWorkbook.Worksheets
wksSheet.ScrollArea = "$A$1:$E$10"
Next wksSheet
End Sub

--
Rob Bovey, MCSE, MCSD, Excel MVP
Application Professionals
http://www.appspro.com/

* Please post all replies to this newsgroup *
* I delete all unsolicited e-mail responses *


"JAMES SYLVESTERSR" <sylvester1501(remove wrote in
message hlink.net...
I have a workbook with 31 pages. Is there a way to set the scroll area
with one statement rather than setting it for each individual page? All
pages will have the same scroll area.

There are 15 other employees using a copy of the workbook and I need to
set
the scroll area for each with a minimum of typing.


Thanks for your help.