VBA going sort crazy

[kweaver]

What is wrong with this?

lastrow is set (e.g., it's 100), there are headers in row 4.

The error is that the "sort reference is not valid."

Worksheets("Reformatted").Range("A4:L" & lastrow).Sort Key1:=Range("H4"), Order1:=xlAscending, Header:=xlYes

 

[Fluff]

I suspect that the Reformatted sheet is not active, therefore it's trying to use H4 on the active sheet as the sort key. Try

With Worksheets("Reformatted")
     .Range("A4:L" & lastrow).Sort Key1:=.Range("H4"), Order1:=xlAscending, Header:=xlYes
End with

 

[kweaver]

Got the same error! Hmmm.

With Worksheets("Reformatted")
 .Range("A4:L" & lastrow).Sort Key1:=Range("H4"), Order1:=xlAscending, Header:=xlYes
End With

Hold on...missed the period in the KEY!! DUH. So tedious. I need better glasses.

Thanks, Fluff.

 

[Fluff]

You're welcome & thanks for the feedback