Thanks Tom

Unfortunately I'm not using a shortcut key - it's just a straightforward Sub in a standard code module

The code is executing perfectly except for unprotect the worksheet

Any other offers?