Bernie

How can someone named Bernie NOT know how to do this? ;-)

Sub BernieSort()
Range(Range(Range("D1"), Range("D1").End(xlDown)), _
Range("D1").End(xlToRight)(1, 0)).Sort _
Key1:=Range("D1"), Order1:=xlAscending, Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End Sub

HTH,
Bernie
MS Excel MVP


"Bernie" wrote in message
ups.com...
I need to have a script in Excel that would allow the sorting of
columns from column "D" to the column before the last column with data.
I do not want the last column sorted. The criteria for the sort is in
row 1 (Name of an employee). Additional columns will be inserted
between column "D" and the last column so they need to be sorted. I
hope this is clear. Can someone please assist me? Thank you!

Bernie