Auto open scroll lock code

[Parkerpen13]

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
Next
End Sub

 

[Fluff]

How about

Private Sub Workbook_Open()
Dim ws As Worksheet
For Each ws In Application.ActiveWorkbook.Worksheets
   ws.ScrollArea = ws.UsedRange.Address
Next
End Sub

This needs to go in the ThisWorkbook module