Unrestrict restricted scroll area

Dear Experts:

below macro restricts the user to a specific area of a worksheet.

I inserted this sub into the sheet module of the sheet on which I would like to limit the scroll area.

I wonder which code undoes this, i.e. the scroll area is to be 'unrectricted' for the active worksheet.

Help is much appreciated. Thank you very much in advance.

Regards, Andreas

Private Sub Worksheet_Activate()
RestrictUser Range("A1:EO44")
End Sub


Sub RestrictUser(WhichRange As Range)

With WhichRange.Worksheet
.ScrollArea = WhichRange.Areas(1).Address
End With
End Sub

Select allOpen in new window