Like this :-
Worksheets("A").Unprotect password:="xx"
Workbooks("Book1.xls").Unprotect password:="xx"



Don't forget to re-protect afterwards

--
Brian

-----------------------------------------------------------------------
BrianB's Profile: http://www.excelforum.com/member.php...tinfo&userid=5
View this thread: http://www.excelforum.com/showthread.php?threadid=38792