How to Display Error Message if there is a macro error?

[MrManBoy]

Hi Team,

I have the below code to delete these particular workbooks for example, however, in the case the user runs the below macro again & the file(s) have been deleted already, I would like to learn how one could stop the macro and then have a message displaying something like "Files have already been deleted" for example.

Sub DeleteWorkbooks()

Kill "E:\Steve's Stuff\Docs\Paul Test\HR.xlsx"
Kill "E:\Steve's Stuff\Docs\Paul Test\HW.xlsx"
End Sub

Thank you in advance to anyone who can help me out with this issue.

 

[mole999]

With Application
.DisplayAlerts = False
End With

before the delete routines, you don't need a warning that something has already happened before and won't happen again

 

[MrManBoy]

Thanks Mole999

However, I am still at a lost how the above code works into resolving my original query. Are you advising that I can not have a message appear to inform the user that file(s) have already been deleted?
Please forgive me, I am still learning this thing of ours, excel, so if you wouldn't mind elaborating perhaps?

Cheers

 

[Andrew Poulsom]

Maybe try:

Sub DeleteWorkbooks()
    On Error Resume Next
    Kill "E:\Steve's Stuff\Docs\Paul Test\HR.xlsx"
    Kill "E:\Steve's Stuff\Docs\Paul Test\HW.xlsx"
    If Err <> 0 Then
        MsgBox "Files already deleted"
    End If
End Sub

 

[Michael M]

MAybe something like this

Sub DeleteWorkbooks()
Dim df1 As String, df2 As String
df1 = "E:\Steve's Stuff\Docs\Paul Test\HR.xlsx"
df2 = "E:\Steve's Stuff\Docs\Paul Test\HW.xlsx"
If Len(Dir(df1)) = 0 Or Len(Dir(df2)) = 0 Then
MsgBox "files deleted already"
Exit Sub
End If
Kill df1
Kill df2
End Sub

 

[MrManBoy]

Thank you Andrew and Michael for both your inputs...both codes work perfectly and is exactly what I was looking for ray:

Cheers boys!