Дождаться открытия PDF-файла и Дождаться закрытия PDF-файла - без указания времени ожидания в программе

Question

У меня есть один код VBA, который открывает файл, копирует данные в него и вставляет его в файл Excel, а затем закрывает файл PDF ... но во многих случаях файл PDF не мог открыться или закрыться в указанное время в программе (т.е. время ожидания)

Цель. Я хочу изменить свой код VBA, например, макрос должен подождать, пока не откроется файл pdf, и пока он не закроется, чтобы ни один pdf не пропустил открытие, и на моем рабочем столе не осталось открытого pdf, который заставляет мой код безобразничать.

Пожалуйста, ПОМОГИТЕ ...

МОЙ ТЕКУЩИЙ КОД VBA IS -

Sub Shell_Copy_Paste()

On Error Resume Next

   Dim o As Variant

   Dim i As Long

   Worksheets("sheet1").Activate

   For i = 2 To Range("A1").End(xlDown).Row


   o = Shell(Cells(i, 1), vbNormalFocus)


   Application.Wait (Now + TimeSerial(0, 0, 2)) 'Wait for Acrobat to load


   SendKeys "^a"   'Select All

   SendKeys "^c"   'Copy

   SendKeys "%{F4}"    'Close shell application

   Application.Wait (Now + TimeSerial(0, 0, 2))

   Worksheets("Sheet2").Activate

    Worksheets("Sheet2").Paste

   SendKeys "^v"   'Paste

   Range("A" & Rows.Count).End(xlUp).Offset(1).Select

   Worksheets("sheet1").Activate


    Next

End Sub