Do
        DoEvents
    Loop Until Dir(sPDFPath & sPDFName & ".pdf") = sPDFName & ".pdf"