Thank you very much for the quick response. You are correct I will not need to select the cells if the contents are just deleted. In addition it would be good to have the diagonal start from the current active cell if that is possible. I have tried a few things but its like trying to learn Russian and I am not very good at Russian. I have several large arrays of formulas that require this to be done and that would save me editing the macro each time.
Thanks again and Best regards.