Итерация по списку проверки в Excel VBA

Question

Мне нужно перебрать список проверки в серии, созданной с помощью массива vba.

Когда я пытаюсь перебрать значение в ячейке, я получаю объект требуемая ошибка:

Sub Mapping2()
    Dim lrow_B, A, i As Long
    Dim str1, str2 As String
    Sheets("Lookups").Select
    Dim inputRange As Range
    Dim c As Range
    lrow_B = Cells(Rows.Count, 2).End(xlUp).Row
    For i = 2 To lrow_B

        If (Cells(i, 1).Value <> "") Then
             Set inputRange = Evaluate(Range("G2").Validation.Formula1)
             'str1 = Cells(i, 5).Value & Cells(i, 6).Value
             For Each c In inputRange
                  If (Cells(i, 3).Value = c) Then
                       Cells(i, 7).Value = c
                  End If
             Next c
        End If

    Next i

End Sub

Диапазон был жестко запрограммирован для временного использования.