Delete a table row if a file is not found anymore

olopa67 

You may try the following code to delete a table row if a recipe card doesn't exist. You may click the button in cell M1 in the attached to run the macro.

Sub DeleteTableRowIfFileDoesNotExist()
Dim ws              As Worksheet
Dim tbl             As ListObject
Dim fso             As Object
Dim i               As Long
Dim strFilePath     As String

Application.ScreenUpdating = False

Set ws = ThisWorkbook.Worksheets("Sheet1")
Set tbl = ws.ListObjects("Table1")
Set fso = CreateObject("Scripting.FileSystemObject")

For i = tbl.DataBodyRange.Rows.Count To 1 Step -1
    strFilePath = tbl.ListColumns("CLICK TO OPEN RECIPE CARD").DataBodyRange.Cells(i).Value
    If Not fso.fileexists(strFilePath) Then
        tbl.ListRows(i).Delete
    End If
Next i

Application.ScreenUpdating = True

End Sub