sort button

[JeffK]

I have a date range A11:H500 (column B contains dates). I want to use a Form
Button that will sort the data in Decending date order. Can someone help me
with the macro. Using Excel 2003.

Much appreciated

 

[Otto Moehrbach]

Using the macro recorder I get this. HTH Otto
Sub SortIt
Range("A11:H500.Sort Key1:=Range("B11"), Order1:=xlDescending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub

 

[Otto Moehrbach]

Oops. That should be: HTH Otto
Sub SortIt
Range("A11:H500").Sort Key1:=Range("B11"), Order1:=xlDescending,
Header:=xlNo, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
End Sub