try changing one character in your code:
Cell.ClearContents
try changing one character in your code:
Cell.ClearContents
p45cal
Everyone: If I've helped and you can't be bothered to acknowledge it, I can't be bothered to look at further posts from you.