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