FIledialog unter O2k

Sub Bildsuchen()
Dim dlg As FileDialog
Dim si As Variant
Set dlg = Application.FileDialog(msoFileDialogFilePicker)
    With dlg
        'Darf der User mehrere Dateien auswählen - Nein
        .AllowMultiSelect = False
        'Name des Buttons des Dialogs
        .ButtonName = "Bild auswählen"
        'FIlter - welche Dateien darf er auswählen
        .Filters.Add "Bilder", "*.gif; *.jpg; *.jpeg; *.bmp"
        .Filters.Add "Alle", "*.*"
        .FilterIndex = 0
        'Welches Verzeichnis soll geöffnet werden
        .InitialFileName = ThisWorkbook.path
        'Anzeige des Dialogs - die Dateien als Details
        .InitialView = msoFileDialogViewDetails
        'Titel halt
        .Title = "Meine Bilderdatenbank der Züge"
    End With
If dlg.Show = True Then
    
    'Die ABfrage für den selektierten Eintrag
    For Each si In dlg.SelectedItems
    
        If MsgBox("Soll dieses Bild  - " & si & " -  übernommen werden?", vbYesNo + vbQuestion, "Abfrage...!") = vbYes Then
            ActiveCell.Value = Dir(si)
        Else
            MsgBox "Die Aktion wurde abgebrochen", vbCritical, "Abbruch...!"
            Exit Sub
        End If
        
    Next
    
End If
End Sub
Danke für eure Hilfe
Justus