Delete files by vba conditionally

This code should do the job.

Private Sub KillFiles()

    Const Path As String = "C:\Users\WolfieeeStyle\Desktop\"
    
    Dim Msg As String
    Dim n As Integer
    Dim Fn() As String
    Dim i As Integer

    If Len(Dir(Path & "kill.xlsb")) Then
        ' separate file names with || (double vertical bars)
        Fn = Split("File 1.xls||File2.xls||File 3.xls", "||")
        For i = 0 To UBound(Fn)
            On Error Resume Next
            ' skip if a file doesn't exist
            Kill Path & Fn(i)
            If Err Then
                Msg = "couldn't be"
            Else
                Msg = "was successfully"
                n = n + 1
            End If
            MsgBox "File """" & fn(i) & """ & vbCr & Msg & " deleted.", _
                   vbInformation, "Action report"
        Next i
    End If
    
    MsgBox n & " files were deleted.", vbInformation, "Action report"
End Sub

In this variation you can enter as many file names as you wish. They will all be deleted only if (a) the file Kill.xlsb is found and (b) they exist.