VB sort grabs header

[ekinzie]

I have a very simple spreadsheet using Excel 2002 SP3. I am using a script I found on this site and a button to sort data by a particular field. I don't have much knowledge of VB. Heres the script:

Private Sub Worksheet_Activate()
On Error Resume Next
Application.EnableEvents = False
Me.UsedRange.Sort _
Key1:=[A1], Order1:=xlAscending, header:=xlYes, Orientation:=xlSortColumns
Application.EnableEvents = True
On Error GoTo 0
End Sub

Basically, everything works ok but the script, it puts the data on top of the header, which occupies row 2. The data starts in row 3 while row 1 contains the worksheet name. Please help!

Ek

 

[martinee]

Instead of Me.UsedRange.Sort....
try:
Me.Range("A3:F" & Range("F65536").End(xlUp).Row)

In this case, F is your last column of data; change to suit. HTH.

 

[ekinzie]

Thanks for your help.

That gives me an error but I managed to find a way around it. I basically moved the worksheet name into the document header which allowed me to move the data header up to row 1.

Now on to my next problem!

Thanks again