R
Richard Daniels
Hi Todd
create a button on the sheet you want to sort, then add
this code to the click event
Private Sub CommandButton1_Click()
With CommandButton1.Parent
Range("c4:an4").Select
Selection.Sort Key1:=Range("C4"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End With
End Sub
Richard Daniels
create a button on the sheet you want to sort, then add
this code to the click event
Private Sub CommandButton1_Click()
With CommandButton1.Parent
Range("c4:an4").Select
Selection.Sort Key1:=Range("C4"),
Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False,
Orientation:=xlLeftToRight, _
DataOption1:=xlSortNormal
End With
End Sub
Richard Daniels