Delete file if file exists.

[Michael Smith]

I have a file which I've listed paths of files in column "C". I need to
cycle through column C and delete the file if it exists, do nothing if
it doesn't exist.

TIA!
-Mike

 

[Tom Ogilvy]

Dim rng as Range, cell as Range
set rng = range(cells(1,3),cells(1,3).end(xldown))
for each cell in rng
if dir(cell) <> "" then
kill cell
end if
Next

 

[Bob Phillips]

On Error Resume Next
For i = 1 To Cells(Rows.Count,"C").End(xlUp).Row
Kill Cells(i,"C")
Next i
On Error Goto 0

 

[Michael Smith]

Thanks...both work perfect. I appreciate it immensly.
-Mike