Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Activating Only the Used Range

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