Visible = True does not work

[jimbenet]

Trying to open an Excel spreadsheet from Outlook and have it be visible after opening it. However, the file opens but I have to click on icon to make it visible.
Here is part of the VBA code that I use in Outlook:
------------
Pname = "C:\Users\" & Environ("Username") & "\Documents\Documents\"
Fname = "Words.xlsm"

On Error Resume Next
Set xlApp = GetObject("Excel.Application")
If Err.Number <> 0 Then
On Error GoTo 0
Set xlApp = CreateObject("Excel.Application")
End If
With xlApp
.Workbooks.Open Filename:=Pname & Fname, ReadOnly:=False
.ActiveWorkbook.Activate
.Visible = True
.WindowState = xlMaximized 'maximize Excel
.Application.ScreenUpdating = True
.Application.Run ("'Words.xlsm'!Words")
End With
------------

 

[NdNoviceHlp]

Hi jimbenet and Welcome to the Board! Trial re-arranging your code to make the application visible and then open the file. HTH. Dave

 

[jimbenet]

Hi jimbenet and Welcome to the Board! Trial re-arranging your code to make the application visible and then open the file. HTH. Dave

That worked!
I also found another solution. I inserted "DoEvents" between .ActiveWorkbook.Activate and .Visible = True. That worked as well.
I like your solution better though.
Thanks for the tip.

 

[NdNoviceHlp]

You are Welcome. Thanks for posting your outcome. Dave

 

[jimbenet]

You are Welcome. Thanks for posting your outcome. Dave

The macro works better with DoEvents inserted after CreateObject("Excel.Application").
Here is my final version.

Pname = "C:\Users\" & Environ("Username") & "\Documents\Documents\"
Fname = "Words.xlsm"

On Error Resume Next
Set xlApp = GetObject("Excel.Application")
If Err.Number <> 0 Then
On Error GoTo 0
Set xlApp = CreateObject("Excel.Application")
End If
DoEvents
With xlApp
.Visible = True
.WindowState = xlMaximized 'maximize Excel
.Workbooks.Open Filename:=Pname & Fname, ReadOnly:=False
.Application.ScreenUpdating = True
.Application.Run ("'Words.xlsm'!Words")
End With