Pathway to Range

[sanantonio]

Sub Delete_Files()

Kill "K:\Excel\Test.xlsx"

End Sub

Hi All.

I believe I have the kill code right to delete files but rather than deleting a specific filepath I want it to delete a filepath specified in a cell? I've tried:

Kill "Range (A2)" but it doesnt work?

Any help would be appreciated as always!

 

[Joe4]

Try this:

Sub Delete_Files()
    
    Dim fl As String
    fl = Range("A2").Value
    Kill fl

End Sub

Just make sure that A2 contains the complete folder path and file name (i.e. "K:\Excel\Test.xlsx").

 

[sanantonio]

Thanks!

 

[Joe4]

You are welcome.

 

[sanantonio]

Sorry, I'm getting a debug error highlighting the "Kill fl". Also how do you get it to delete multiple files based on multiple cell references? Can I just repeat the code?

 

[Joe4]

It works for me.

What is the exact error message you are getting?
What exactly is in cell A2 (please post the value in this cell)?

 

[sanantonio]

It works for me.

What is the exact error message you are getting?
What exactly is in cell A2 (please post the value in this cell)?

Apologies must've been something I did, I tried it in a new workbook and it worked fine. Sorry!

Any insight into making it work for multiple? A2, A3 etc. ?

 

[Joe4]

Here is code that will loop through row 2 to whatever the last populated row in column A is:

Sub Delete_Files()
    
    Dim lr As Long
    Dim r As Long
    Dim fl As String
    
'   Find last row in column A with data
    lr = Cells(Rows.Count, "A").End(xlUp).Row
    
'   Loop through all rows from row 2 to the last row
    For r = 2 To lr
        fl = Range("A" & r).Value
        Kill fl
    Next r

End Sub