Outlook to open excel

[maxx_daddy]

Hi all again,
Ok so my code snippeting has gotten me this far.
I open a workbook from outlook via this code:
Sub XL_Test()
Dim myXLApp As Excel.Application
Dim myXLWB As Excel.Workbook
On Error Resume Next
Set myXLApp = GetObject(, "Excel.Application")
If myXLApp Is Nothing Then 'No instance of Excel is available
Set myXLApp = CreateObject("Excel.Application")
End If
Workbooks.Open "C:\Users\Joe\Desktop\R-MailJoe.xlsm"
End Sub

That "opens" the work book, but I cannot see it, it doesn't pop up or show up on my screen/task bar, but a quick look at the task manager and sure enough, there is excel.exe.

I will run all of the copy/paste code (want to snag the subject and addressee and paste) from excel, but getting it opened and usable is the secret.
What did i do wrong?
Thanks,

edit: also I know it has opened the correct work book because if i try to open normally it tells me it is aready open.

joe

 

[wigi]

Thanks for the effort.