Converting Image insert Marco from MS Office 2003 to 2016

[Larendran Laru]

Hi All,

I need help converting some macro found in MS Office 2003 into MS Office 2016.

The following works in MS Office 2003 but does not work in 2016.

Art.xls is stored in XLSTART folder and opens in Excel hidden .
Another workbook contains the macro buttons that call an image from ART.xls.
The image box is selected prior to operating any macro buttons.
The result would be the image box containing the respective image that was called through the macro button selected.

These are the VBA codes used.

Sub Screw33()
ActiveShapes = Activate
Selection.Formula = "Art.xls!$A$1"
Selection.Formula = ""
End Sub

Sub Screw34()
ActiveShapes = Activate
Selection.Formula = "Art.xls!$E$1"
Selection.Formula = ""
End Sub


Please refer to the link for a detailed illustration that describes the purpose of this image macro.

https://drive.google.com/file/d/1IZtmFsZ6BxubnQL4Qd51LJ77l8CNlK_2/view?usp=sharing

Thank you very much.
Regards
Laru.