Exit "sub"

[snitsel]

Beste

Ik heb hier ongeveer 2 dezelfde codes die geheel onafhankelijk zijn van elkaar.

Sub Afdrukken()

    Dim Rc As Variant
        If Sheets("Gegevens").Range("F7").Value = "" Then
            Exit Sub
        Else
            Rc = Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /t G:\Collstrop\DataBase\Uithaallijsten\Poorten_beslag\" & Range("AA1").Value & ".pdf", 1)
        End If
            SendKeys "^Q", True
            
'Montagehandleiding van de zuilen afdrukken

        If Sheets("Gegevens").Range("E8").Value = "" Then
            Exit Sub
        Else
            Rc = Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /t G:\Collstrop\DataBase\Montagehandleiding\Zuil\Montage_zuil" & ".pdf", 1)
        End If
            SendKeys "^Q", True

End sub

Het probleem dat ik hier heb is het volgende:
Als cel F7 leeg is, dan doet hij niet meer verder met de rest van mijn code omdat ik het volgde heb in het begin van mijn code:

If Sheets("Gegevens").Range("F7").Value = "" Then
Exit Sub

Hoe kan ik de Exit Sub veranderen zodanig dat hij verder doet met de rest van mijn code die er onder volgt.
Als ik Exit Do of Exit Function of andere exits probeer, dan lukt het niet.

Mvg

 

[Wigi]

    Dim Rc As Variant
        If Sheets("Gegevens").Range("F7").Value [B]<>[/B] "" Then
            Rc = Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /t G:\Collstrop\DataBase\Uithaallijsten\Poorten_beslag\" & Range("AA1").Value & ".pdf", 1)
        End If
            SendKeys "^Q", True

 

[snitsel]

    Dim Rc As Variant
        If Sheets("Gegevens").Range("F7").Value [B]<>[/B] "" Then
            Rc = Shell("C:\Program Files\Adobe\Reader 9.0\Reader\AcroRd32.exe /t G:\Collstrop\DataBase\Uithaallijsten\Poorten_beslag\" & Range("AA1").Value & ".pdf", 1)
        End If
            SendKeys "^Q", True

Ah.. stom van mij.
Ik was veel te ver aan het denken, als het ook gemakkelijk en kort kan!
Bedankt Wigi!