Code locks cells when inserted in sheet module but returns error in standard module

Hi all,

Currently, my code locks cells depending on the value of a specific cell in Range("D52:O52"). When this code is inserted into the sheet module it works perfectly. At present this is OK, as I run the main locking code from the standard module which calls each piece of code from each sheet to lock it. However, this looks messy when the users click on the macro section in developer tool bar and see sheet1.LockUnlock

I decided to remove all the code from the sheet modules and place it in the same standard module as the parent locking code as a private sub (so I could still call it whilst it removed all references to sheet1.LockUnlock from the macro section in the developer tool bar)

The only problem here is that I now get Unable to set the locked property of the range class. It is exactly the same code which works when inserted into the correct sheet module. If anyone could offer any assistance with this I would greatly appreciate it. Please see code below.

Regards,

Please Login or Register  to view this content.

Thanks very much - works perfectly. Nice simple fix