Create Loop and stop when done

something like this.

    Dim iCell as Range
...
    Set isht = Sheets("Info")
    
    For Each iCell In isht.Range("B29:B35")
    strSearch = Left(iCell, Len(iCell) - 1)'Trim colon.
...

    next