Get Macros To Open Embedded Documents

I am trying to create a macro to add to a button that will open an embedded document (word, PPT, and excel).

I recorded the macro and it works fine the first time I try to test it but after it tells me that there is an error...

I'm not exactly sure what to do. Unfortunately, I could not find what I needed on youtube

Error: It talks about the object being out of range and allows me to debug... the code that is in the developer is:

Sub Macro1()
'
' Macro1 Macro
'
'
Sheets("Sheet2").Select
Windows("Worksheet in Book1").Visible = True
Selection.Verb Verb:=xlPrimary
ActiveWindow.Close
Sheets("Sheet1").Select
End Sub

The Windows line is what it tells me to fix.. from there I am lost... Is it because I am trying to do a double clicking function?