Seems like this was working (In "Thisworkbook"):

Sub workbook_Open()
Sheet1.EnableAutoFilter = True
Sheet1.Protect userinterfaceonly:=True
Sheet2.EnableAutoFilter = True
Sheet2.Protect userinterfaceonly:=True
Protect Password:="pass"

End Sub


Even if I renamed the sheets I still have to use "Sheet1, Sheet2" etc
as commands


Phoenix :

-----------------------------------------------
~~ Message posted from http://www.ExcelTip.com
~~View and post usenet messages directly from http://www.ExcelForum.com