For some reason I have to add ... to the sort command but it works fine now.
Thanks!
Sub auto_open()

CommandBars("Worksheet Menu
Bar").Controls("Data").Controls("Sort...").Enable d = False

End Sub

"Neil" wrote:

"zulfer7" wrote:

Can Anyone Help?

Hi,

Try adding the following line to an 'Auto_Open' macro in your workbook:

CommandBars("Worksheet Menu_ Bar").Controls("Data").Controls("Sort").Enabled
= False

You will need to change this back again again by changing 'False' to 'True'
when you leave your workbook.

HTH

Neil
www.nwarwick.co.uk