Bestanden opeenvolgend openen

[stefano]

Hoi,

Ik wil vijf bestanden achtereenvolgens openen. Hiervoor maakte ik in vba aan

Sub opentest1()
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & Range("b5").Value & ".xls"
    [B]Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & Range("b6").Value & ".xls"[/B]    
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\rdmb\certificaten\" & Range("b7").Value & ".xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\" & Range("b8").Value & ".xls"
    Workbooks.Open Filename:="\\svrmid001\data\Certificaten\" & Range("b9").Value & ".xls"
End Sub

Echter loopt de macro steeds vast op de 2de stap. Wat doe ik fout ?

Wanneer ik de macro uitvoer in 5 aparte stappen dan lukt het wel.

Kan ik ook de bestanden geminimaliseerd openen ( de eerste vier, de vijfde niet )