khalid79m
10-30-2008, 09:21 AM
Private Sub Sorter()
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Rows("2:2" & lastrow).Select
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
this works fine in 2003 & 2000 but it comes up with a debug in 1997 why is that can anyone help.. ive never used 1997 but some of my worksites still have 97?
Dim lastrow As Long
lastrow = Cells(Rows.Count, "A").End(xlUp).Row
Rows("2:2" & lastrow).Select
Selection.Sort Key1:=Range("F3"), Order1:=xlAscending, Header:=xlYes, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _
DataOption1:=xlSortNormal
End Sub
this works fine in 2003 & 2000 but it comes up with a debug in 1997 why is that can anyone help.. ive never used 1997 but some of my worksites still have 97?