Preciso de ajuda com uma formula, pesquisei em vários sites, mas não encontrei em nenhum. Preciso fechar o arquivo apos ser aberto por ShellExecute. Alguem pode me ajudar?

Const SW_SHOW = 1
Const SW_SHOWMAXIMIZED = 3

Public Declare Function ShellExecute Lib "Shell32.dll" Alias "ShellExecuteA" _
  (ByVal hwnd As Long, _
   ByVal lpOperation As String, _
   ByVal lpFile As String, _
   ByVal lpParameters As String, _
   ByVal lpDirectory As String, _
   ByVal nShowCmd As Long) As Long

 Sub Abrir()
 
 
  Dim RetVal As Long
  On Error Resume Next
  RetVal = ShellExecute(0, "open", "H:OperacaoPCP5 - ComumACOMPANHAMENTO AMEX10- Acompanhamento PF4 - Entregáveis1 - Relatórios Diários10 - Status de LoginRelatorio_Analise_Capacidade.acsup", "", _
                        "", SW_SHOWnormal)

End Sub