Excel 2016 - VBA - Troubleshooting Macro that Should Work But Isn't Working?

[MEUserII]

I have an Excel 2016 VBA macro that changes the "Office Theme" under: File>Account>Office Theme; to the next theme. This macro should work as when I try and perform the macro's sequence of actions manually the sequence of actions is successful in changing the "Office Theme" - would anyone might know why this macro isn't then working?
CODE:

Sub OfficeThemeChangeMacro()

Application.Wait (Now + TimeValue("00:00:01"))

SendKeys ("%FDY1")
Application.Wait (Now + TimeValue("00:00:01"))

SendKeys ("{DOWN}")
Application.Wait (Now + TimeValue("00:00:01"))

SendKeys ("{ENTER}")
Application.Wait (Now + TimeValue("00:00:01"))

'SendKeys ("{ESC}")
Application.Wait (Now + TimeValue("00:00:01"))

End Sub

 

[MEUserII]

Would anyone with Excel 2016 try this macro to see if it works? Or can anyone tell me why this macro is not working?

 

[MEUserII]

I've been tyring to figure this out, and I am still stuck on this - does anyone have any idea on why this Excel 2016 macro is not working to change the "Office Theme"?

 

[alansidman]

Have you tried using the Macro recorder and comparing it to what you have in your code.

 

[MEUserII]

Have you tried using the Macro recorder and comparing it to what you have in your code.

That's the weird thing the macro recorder doesn't pick up any of these actions regardless of performing the sequence of actions by hotkey (which are the actions my posted macro executes) or by performing the same actions by mouse click. For reference, I have listed what the macro recorder records:
CODE:

Sub Macro1()
'
' Macro1 Macro
'
'
End Sub

Does anyone else have any ideas on why this posted macro is not working in Excel 2016?

 

[MEUserII]

I have been trying to figure this out for a while now, and I am still stuck on this; does anyone have any ideas on why this posted macro is not working in Excel 2016?