I am using the following to Clear a group of cells;
Range("AP1:AP1500").Clear

however, after using this code I notice that the cells are Locked rather
than Unlocked as they were originally - this then causes problems in other
code I have running as the sheet is protected when distributed.

Is there something elase I can do to solve the problem ?

Thanks