Trouble sorting as part of a Macro

[MichaelB]

Hello, So I found some code that does the sorting that I want but when I try to run the Function as part of a macro the sorting does not work. Through a google search I found this code:

Sub Sortmybin()
Range("f2").CurrentRegion.Sort _
Key1:=Range("f2").CurrentRegion.Sort _
Order1:=XLDescending, _
Header:=XLyes


End Sub

but I am getting a compile error for Expected end of Statement on the Order1 line.

Any ideas?

Thank you.