Sort Column Script

[Bernie]

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

 

[Bernie Deitrick]

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]

LOL, that's because this Bernie is not a genius and you are.

It works perfectly, thank you so much for the help.

Bernie

 

[Bernie Deitrick]

Bernie,

Glad to hear that it worked OK for you. We all have to start with _zero_
experience - soem of us have just been around longer than others....

Bernie