Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) problem

I am trying to figure out why one code which works in a workbook would not work in another workbook. The only difference is range locations.

Please Login or Register  to view this content.

Please Login or Register  to view this content.

the first code works fine but the second one hangs up when it trys to clear the cell with the password in it.

The only difference is that the word "Save" in the second code is capitalized but that is only because I have a code running that has everything in proper case.

Thanks in advance for your help.