yes it is cool thank you because it works but when I try to call this
sub. I have an error run-time 91 error run-time error 91 object
variable or with block variable not set

do you know why?

Option Explicit

Sub test()

Dim oExec As Object

Set oExec = OpenPHObject()

Application.Wait (Now + TimeValue("0:00:10"))

Call CHObject(oExec)

End Sub


Function ClosePHObject(oExec As Object)

Dim WshShell As Object

'oExec.Quit
oExec.Terminate
Set WshShell = Nothing
Set oExec = Nothing

End Function