Excel VisualBasic Script

Private Sub Worksheet_Activate( )
      Me.ScrollArea = Range(Me.UsedRange, Me.UsedRange(2,2)).Address
End Sub