You can use this

Set terry = Worksheets(1).Range("A1:A10,B1:B10")


--
Regards Ron de Bruin
http://www.rondebruin.nl


"TerryT" wrote in message ...
If I want to search a "block" of cells this code will search across columns
then by rows, is there anyway to search all of the rows in a column before
moving to the next row? In other words colum A rows1 1-10, col B rows
1-10...etc instead of A1, B1, C1, A2, B2, C2
Thanks

Function jjj()
Dim terry As Range
Set terry = Worksheets(1).Range("A1:C3")
For Each x In terry
MsgBox x.Value
Next x
End Function