I use this code to find a match of Val1 in a row of cells, though also have
Val2, 3 ,4 etc also

For j = StrtCol To EndCol
If ActiveCell = Val1 Then
Call Get_Data
Else
ActiveCell.Offset(0, 1).Select
End j

I turned the val variable into a String called Val() though not sure how the
syntax works to look for e.g. Val(1 to 5) in the row of the cells and return
data below it.
The Val is text.

For Each i In Val(i)?

Thanks