Dim app As Object
On Error Resume Next
Set app = CreateObject("Excel.Application", "localhost")
If Err.Number <>0 Then
  DoEvents
  Set app = CreateObject("Excel.Application", "localhost")
End If
On Error Goto 0

_________________________
Professionelle Entwicklerkomponenten
www.tools4vb.de