Thank you both for your response.
I am enclosing 3 screenshots - although in REVERSE ORDER.
"Screenshot 001" shows the simple shapes I want to copy and paste into an active sheet, i.e Sheet 2024. You will not the blue shape on the right "Blue Box" which I trigger using Ctr+i.
"Screenshot 002" shows the message I get having selected Ctr+i following which I select "Debug"
"Screenshot 003" describes the problem with the coding.!!
As previously mentioned, this has worked well for the last couple of years and suddenly stated to play-up last week.
I have updated my 365 app and thinking it may be a window's (W11) update problem, I have restored to a previous version but neither makes any difference.
If you require anymore information, please do not hesitate to ask.
Once again, many thanks for picking this up.