C
Colin Hayes
Hi
I'm using this code (placed as a ThisWorkbook module) to restrict the
scroll area in the five worksheets in my workbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim mysheets As Sheets
Set mysheets = Worksheets(Array(1, 2, 3, 4, 5))
For Each Sheet In mysheets
Sheet.ScrollArea = "A1:O58"
Next
End Sub
Unfortunately , I find it doesn't work immediately the workbook is
opened :
If go to use the first worksheet , it allows scrolling in all directions
without limit. This isn't the idea.....!
If I click onto the second sheet , the restrictions from the code apply.
If I then go back to the first sheet , the restrictions are now in
force.
Is there any way I can get this to work properly and be in force from
when the workbook opens?
Grateful for any help.
Best Wishes
Colin
I'm using this code (placed as a ThisWorkbook module) to restrict the
scroll area in the five worksheets in my workbook :
Private Sub Workbook_SheetActivate(ByVal Sh As Object)
Dim mysheets As Sheets
Set mysheets = Worksheets(Array(1, 2, 3, 4, 5))
For Each Sheet In mysheets
Sheet.ScrollArea = "A1:O58"
Next
End Sub
Unfortunately , I find it doesn't work immediately the workbook is
opened :
If go to use the first worksheet , it allows scrolling in all directions
without limit. This isn't the idea.....!
If I click onto the second sheet , the restrictions from the code apply.
If I then go back to the first sheet , the restrictions are now in
force.
Is there any way I can get this to work properly and be in force from
when the workbook opens?
Grateful for any help.
Best Wishes
Colin