Sub ReduceSize()
ActiveSheet.Unprotect Password:="ABCD"
' perform you actions
ActiveSheet.Protect Password = "ABCD"
End Sub

--
Regards,
Tom Ogilvy

"dgmorr " wrote in message
...
The reason I am trying to do this is to reduce the file size. Having all
that extra text from the function creates a much bigger file.

What I do is go to tools/macro/Run Macro. When I put the Protect Sheet
mode on, the function will not run.


---
Message posted from http://www.ExcelForum.com/