How to Open workbook?

Question

I have this macro that used to work nicely for a while.
I replaced seemingly irrelevant function Insert Picture for Add Shape Picture in diff