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)


"Pierre via OfficeKB.com" <u13950@uwe wrote in message
news:5700d3b6b2a90@uwe...
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


--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...mming/200511/1