Wieder mal ein Problem, wo ich Hilfe benötige:

Hier mein Code-Ausschnitt:

' PDF-Datei ins Webspace versenden
    Dim iBox As String
    iBox = MsgBox("Soll die PDF-Datei gleich ins WEB versendet werden?", vbYesNo + vbQuestion, "PDF-VERSAND")
      If iBox = vbYes Then
      Shell ("U:\BAT\FILFTP.EXE @U:\BAT\GE_S-FTP.cfg")
      Else
      
' abspeichern als Vorlage und beenden
    Dim sBook As Workbook
    ActiveWorkbook.SaveAs Filename:="U:\GROSSER\Preislisten\Monacor_last-pdfconvert.xls", _
        FileFormat:=xlNormal, _
        Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _
        CreateBackup:=False
    For Each sBook In Workbooks
        If (sBook.Name <> ActiveWorkbook.Name) And (sBook.Name <> ThisWorkbook.Name) Then
        sBook.Close savechanges:=False
      End If
    Next sBook

  End If

Wenn der Shell-Aufruf mit NEIN aufgerufen wird läuft der Code weiter.
Wenn mit JA aufgerufen, dann wird das externe Programm ausgeführt und bleibt dann stehen. Es soll aber nach/beim Ausführen des externen Programms auch den Code nach "else" weiter ausführen.

Wie geht das. Bitte um Hilfe.
Gruß Mario