Dim objExcel As Excel.Application
On Error Resume Next

Set objExcel = GetObject(,"Excel.Application")
If Err.Number = 429 Then
' Det finns ingen version av Excel igång.
Err.Clear

Set objExcel = CreateObject("Excel.Application")
If Err.Number <> 0 Then
Err.Raise "fel.."
End If
End If