Delete File in current folder

[account123]

Hi everyone,

Iam trying to write a small code using the KILL Command to delete a file called "Monthly Summary.xlsm" from the current folder.

Thank you

 

[RMS123]

Something like this?

Sub deletefile()


Dim Killfile, filepath, filename As String


'enterfilepath
filepath = ""


filename = "Monthly Summary.xlsm"


Killfile = filepath & "\" & filename


If Len(Dir(Killfile)) > 0 Then


    Kill (Killfile)


End If




End Sub

Regards