Embedded Object Opening and Showing (PowerPoint Presentation)

[Mike808]

Excel Ninjas-

Why would the code below work perfectly for Excel 2013, but not Excel 2016?? I have an embedded object and have a Command Button macro to Show the slideshow and another Command Button macro to Open the slideshow in PowerPoint as a separate window.

However, I receive a debug error in Excel 2016. It varies and is not consistent. Can't find any reason why. Also, very little on workarounds. Thanks as always!

Sub ShowReport()
'
' ShowReport Macro
'

'
  ActiveSheet.Shapes.Range(Array("Object 2")).Select
  Selection.Verb Verb:=xlPrimary
End Sub

Sub OpenReport()
'
' OpenReport Macro
'

'
  ActiveSheet.Shapes.Range(Array("Object 2")).Select
  Selection.Verb Verb:=3