Change
Range("e95:g108").Sort key1:=Range("e95"), Order:=xlDescending

To
Range("e95:g108").Sort key1:=Range("e95"), Order1:=xlDescending


Kevin Backmann


"peyman" wrote:

hi,
I see an error when I run the following code.the order focuses on "order"
poping up a message like"named argument not found"??any help?

Private Sub CommandButton16_Click()
Sheets("sheet1").Activate
Range("e95:g108").Sort key1:=Range("e95"), Order:=xlDescending
End Sub

thanx