Excel VBAでファイルを削除する - Kill ： Excel

Private Sub CommandButton1_Click()
    Dim sfina As String
    Dim lret As Long
    
    sfina = SelectFile_single
    'ファイルが選択されていれば
    If sfina <> "" Then
        lret = MsgBox(sfina & " を削除してもよろしいですか？", vbYesNoCancel, "ファイルの削除")
        If lret = vbYes Then
            '「はい」がクリックされるとファイルを削除する
            Kill sfina
        End If
    End If
End Sub

'ファイル選択ダイアログボックス
Public Function SelectFile_single()
    Dim sfile As String
    Dim i As Integer
    Dim s As String

    sfile = Application.GetOpenFilename("ファイルを選択してください (*.xls), *.xls")
    If sfile = "False" Then
        SelectFile_single = ""
    Else
        SelectFile_single = sfile
    End If
End Function