Поиск значения в ячейке

Private Sub Test()
    Dim iWord As Variant, iCell As Range
 
    For Each iWord In Split([A1])
        Set iCell = [A5:T24].Find(iWord, , xlValues, xlWhole)
        If Not iCell Is Nothing Then
           Run Choose(iCell.Column, "Change", "Delta", "Sum", и т.д.)
           Exit For
        End If
    Next
End Sub

Private Sub Test2()
    Dim iWord As Variant, iSource As Range, iCell As Range
    Set iSource = [C5:V24]
 
    For Each iWord In Split([A1])
        Set iCell = iSource.Find(iWord, , xlValues, xlWhole)
        If Not iCell Is Nothing Then
           Run Choose(iCell.Column - iSource.Column + 1, "Change", "Delta", "Sum", и т.д.)
           Exit For
        End If
    Next
End Sub

Private Sub Test1v2()
    Dim iWord As Variant, iCell As Range
 
    For Each iWord In Split([A1], ",")
        Set iCell = [A5:T24].Find(Trim(iWord), , xlValues, xlWhole)
        If Not iCell Is Nothing Then
           'Выполнение необходимого макроса
           Exit For
        End If
    Next
End Sub

Dim iWord As Variant, iSource As Range, iCell As Range
iWord = Replace([A1], " ", "-", , 1) ': iWord = Replace(iWord, ".", "")
 
Set iSource = [AG2:BE14]
For Each iWord In Split(iWord, "-")
    Set iCell = iSource.Find(Trim(iWord), , xlValues, xlWhole)
    If Not iCell Is Nothing Then
       '''
       Exit For
    End If
Next