You either want to
loop through a defined range[
^] or (far more likely!) use
vlookup[
^]
[EDIT]
For example if you know what you want to look up you could use this function
Function GetData(lookupValue) As String
Dim LookUpRange As Range
Set LookUpRange = Sheets("Lookup").Range("A1:B10")
Dim LookupColumn As Integer
LookupColumn = 2
Dim returnValue As String
On Error Resume Next
returnValue = WorksheetFunction.VLookup(lookupValue, LookUpRange, LookupColumn, False)
On Error GoTo 0
GetData = returnValue
End Function
which you could call like
strImage = GetData(1)
However, if you want to loop through all of your data then you could use something like the code in this sub
Sub StepThrough()
Dim StepRange As Range
Set StepRange = Sheets("Lookup").Range("A1:A10")
Dim aCell As Range
For Each aCell In StepRange
Debug.Print aCell.Value2, aCell.Offset(columnOffset:=1).Value2
Next
End Sub