The following issues;
Sub Lock excel doesn't like, so I changed it to Unlock Blue. That was fine except now it comes up with a run time error for...
cell.Locked = False