This sorting works in Excel 2007, but I have a few users that use 2003, so I'd like to convert it. Any suggestions would be apprecated.
ActiveWorkbook.Worksheets(scheduleWS).Sort.SortFields.Clear
ActiveWorkbook.Worksheets(scheduleWS).Sort.SortFields.Add Key:=Range("A2:A" & scheduleRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(scheduleWS).Sort.SortFields.Add Key:=Range("B2:B" & scheduleRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
ActiveWorkbook.Worksheets(scheduleWS).Sort.SortFields.Add Key:=Range("D2:D" & scheduleRow), _
SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
Nevermind, I got it figured out.
Bookmarks