excel hide and visible problem

[Pierre via OfficeKB.com]

Hi experts,

my application hides excel completely and is run through a userform.

if an error occurs, my userform is shut down and excel is not visible anymore.

I'am looking foor a piece of code that i can give the user.

the user should then be able to double klick this piece of code on his
desktop to show the hidden instance of excel again.

does anybody have this piece of code?
Thanks,
Pierre

 

[Bob Phillips]

Sub ExcelVisible()
Dim oXL As Object

On Error Resume Next
Set oXL = GetObject(, "Excel.Application")
If Not oXL Is Nothing Then
oXL.Visible = True
Set oXL = Nothing
End If
On Error GoTo 0
End Sub


--

HTH

RP
(remove nothere from the email address if mailing direct)