Disable sorting but allow filtering

Hello everyone

I want to prevent sorting of columns in a single worksheet but allow filtering. I came across this macro for Excel 2003 in another forum but it doesn't seem to work for me (I'm using 2010). http://www.ozgrid.com/forum/showthread.php?t=49308

Formula:

Sub Macro1() 

    ActiveSheet.EnableAutoFilter = True 

    ActiveSheet.Protect Scenarios:=True, contents:=True, userInterfaceOnly:=True 

End Sub

I entered it in the view code bit of the worksheet I want it applied to which I'm guessing is the right way to go about it?

Thanks