Get macros to open embedded documents

Hello!

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. Any help would be great. Unfortunately, I could not find what I needed on youtube so hopefully I can get help from your great minds!

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?

Thanks!

I see that this is your first post. Please use code tags when imbedding macro code. Thanks.

In excel, when you create a new workbook and haven't yet saved it, the window name (e.g., Book1) doesn't have an extension. At the top of the excel window, it will say Book1 - Microsoft Excel. Once you have saved it, or if you open an existing workbook, the window name will include the extension (Book1.xlsx). I suspect that's your problem. The window name in your code doesn't have an extension, so it will work the 1st time, but won't find the window after it's been saved because the name is different. "Out of range" usually means it can't find the object your asking for.

Again, please edit your post and put code tags around macro code as requested in the forum rules.

What menu steps are you using to imbed the documents?

Sorry, I'm asking how you imbedded the documents to being with.