Bestand bestaat niet - macro verderzetten

[stefano]

Beste,

In onderstaande code haal ik drie bestanden op via een inputbox. Echter wanneer ik bv voor de tweede inputbox geen waarde invul ( het bestand bestaat niet ) dan stopt de macro gezien het bestand niet gevonden wordt. Hoe kan ik de macro laten verder lopen wanneer de waarde van een inputbox blanco blijft?

Sub cert_ophalen()

Dim file1 As String
Dim file2 As String
Dim file3 As String

    file1 = InputBox(Prompt:="Geef CDMB-nummer Volkoren in", _
          Title:="* * * VOLKOREN * * *", Default:="")
         
    file2 = InputBox(Prompt:="Geef CDMB-nummer Bloem in", _
          Title:="* * * BLOEM * * *", Default:="")
         
    file3 = InputBox(Prompt:="Geef CDMB-nummer Patent in", _
          Title:="* * * PATENT * * *", Default:="")
         
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & file1 & ".xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & file2 & ".xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & file3 & ".xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\AH BREDA NORM.xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\AH BREDA CERT TOT.xls"

End Sub

 

[pasan]

Sub cert_ophalen()

Dim file1 As String
Dim file2 As String
Dim file3 As String
[COLOR="#0000CD"]On Error Resume Next[/COLOR]
en de rest van je code