"Doug" wrote:
Thanks but it still doesn't seem to be working, the range I want to be
viewed is a1:g97 (however the end reference varies as I have different
worksheets to apply this to).

Try something like:
(for different sheetnames, different scrollareas)

Private Sub Workbook_Open()
Worksheets("Sheet1").ScrollArea = "A1:G97"
Worksheets("Sheet2").ScrollArea = "A1:E50"
Worksheets("Sheet3").ScrollArea = "A1:D100"
End Sub

Adapt to suit, eg put in the actual sheetnames & scrollareas
--
Max
Singapore
http://savefile.com/projects/236895
xdemechanik
---