Datei auswählen und ohne Rückfrage löschen

Thema: Allgemein - Gruppe Arbeitsmappe

Arbeitsmappe

241004    084999

Problem: Wie kann ich eine Datei über Dialog auswählen und ohne Rückfrage löschen lassen?

StandardModule: basMain

Sub DateiLoeschen()
   Dim vFile As Variant
   vFile = Application.GetSaveAsFilename _
      (fileFilter:="Exceldateien (*.xls), *.xls")
   If vFile = False Then Exit Sub
   Kill vFile
End Sub