3dMaps Macro runs with worbook opened but error 5 when using "Sub workbook_open"

I am returning to excel after years and I want to use 3dmaps but with minimum effort of users so a macro to reach the last page This is the VBA. When the file is open I get error 5. I am new here so I don't know to attach my xlsm file

Sub Workbook_Open()
AppActivate (Application.Caption)
SendKeys "%", True 'Alt
SendKeys "n", True 'Insert
SendKeys "s", True '3DMAP
SendKeys "m", True '3DMAP
SendKeys "o~", True 'Tour
End Sub

Any help will be welcomed