VBA: close Adobe Reader

[Jan Prins]

I have created a PDF file out of Excel and Adobe Reader is automatic opened.
I want to close Adobe Reader by VBA code.

Under references I have added the Adobe library.
I use this code but it doesn't work.
Can somebody help me please?
Jan Prins

Sub closeAdobe()
Dim wdobj As Acrobat.AcroApp
On Error GoTo foutmelding
Set wdobj = GetObject(, "Adobe Reader")

With wdobj
.Show
.Exit
End With

Exit Sub
foutmelding:
MsgBox "Cannot close Adobe"
End Sub