This is what the macro looks like now.
It is very simple:
Sub SortData2()
'
' SortData2 Macro
' Macro recorded 4/28/2002 by Jerry Russell
'
'
Range("A8:G27").Select
Selection.Sort Key1:=Range("A8"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Range("A1").Select
End Sub
Thanks for any help.
Jerry
Like this thread? Share it with others