Let excel do the work for you:
Dim row, col As Integer
row = 1 'starting row
col = 1 'column with filenames
While Not IsEmpty(Cells(row, col))
If Dir(Cells(row, col)) <> "" Then
Kill (Cells(row, col))
Cells(row, col + 1) = "deleted"
Cells(row, col + 1) = "not found"
row = row + 1
This macro will get the filename from the first column in the active sheet, starting with the first row until the first blank cell is reached. A status is written into the 2nd column.