VBA-Проверьте, существует ли изображение в ячейке, вылетает Excel

Question

При запуске кода, чтобы определить, существует ли изображение / изображение в ячейке, Excel продолжает сбой и не запускает код, даже если я запускаю его шаг за шагом.

Я пытался сshape.name, но тот же результат.Можете ли вы, ребята, думать о работе вокруг?Моя электронная таблица содержит 530 строк, около 20% из них не имеют изображений, и мне нужно добавить по одному для каждого «продукта». Я применяю следующий цикл от строки = 2 до строки = 530

Я пробовал альтернативы на основена этой странице, но код продолжает падать: Как проверить, существует ли какая-либо из фигур?

Dim rngCell As Range
Dim shp    As Shape
Dim objPic As Picture
Dim Pic_bool As Boolean 
Dim strFolder As String
Dim strFileName As String

Prod_name = Range("F" & i)
strFolder = "C:Documents/Pictures"

        strFileName = strFolder & Prod_name & ".png"
        Pic_bool = False
        Set rngCell = Range("H" & i)

            For Each shp In ActiveSheet.Shapes    'Excel crashes on this line
                If shp.TopLeftCell.Address = rngCell.Address Then
                If shp.Name = strFileName Then
                Pic_bool = True
                Exit For
                End If
            Next shp

If Pic_bool <> True Then
'Insert picture on Cell H&i
    If Dir(strFileName) <> "" Then
    Range("H" & i) = "No Picture Found"
    End If
End If

Ожидаемый результат - каждая строка в столбце H проверяет, существует ли уже изображение, в противном случае оновставляет картинку