Excel code to copy shape in a partcular PPT slide

I have developed a function where I pass a Shape and slide object.
The function finds for a shape with text LOGO inside it, if it finds, it replaces that shape with the shape I passed to the function.
Function works perfectly on office 2013 but not on Office 2016.
Can anybody please suggest a work around for this?

Please Login or Register  to view this content.

Below is the error message I get on Office 2016:
Screenshot_2.png