Macro to Delete Specified Files in a Folder

[howard]

I have the following code to delete specified files in a folder

 Sub Delete_Files()


mypath = Sheets("Delete Old EMTQ Files").Range("A2") & "\"
On Error Resume Next
For Each cl In Sheets("Delete Old EMTQ Files").Range("C2", Sheet1.Range("C" & Sheets("Delete Old EMTQ Files").Rows.Count).End(xlUp))
    With CreateObject("Scripting.filesystemObject")
        For Each sf In .GetFolder(mypath).Files
            If UCase(sf.Name) Like "*" & UCase(cl.Value) & "*" Then Kill sf
        Next
    End With
Next

End Sub

I have set up the Folder Path in A2, No for subfolder in B2 and *EMTQ* in C2 for file name

I get subscript out of range when running macro and code below is highlighted

 mypath = Sheets("Delete Old EMTQ Files").Range("A2") & "\"

It would be appreciated if someone could kindly amend my code

 

[Joe4]

I get subscript out of range when running macro and code below is highlighted

mypath = Sheets("Delete Old EMTQ Files").Range("A2") & "\"

That usually means that it cannot find a sheet name "Delete Old EMTQ Files".
Check to make sure that the sheet really exists, and that is the EXACT name.
Any extra spaces or characters will cause it not to match.

 

[howard]

Thanks Joe. There was a at the end of the sheet name

 

[Joe4]

You are welcome.