Here is my code to lock the scroll area and it does work but how can I get this to run without having to use a button to start the code.
Sub SetAllScrollAreas()
'Update 20140326
Dim ws As Worksheet
For Each ws In Application.ActiveWorkbook.Worksheets
ws.ScrollArea = ws.UsedRange.Address...