TerryT wrote:
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



I don't know if it's useful for you, but the For...Each structure
traverses arrays differently from ranges; down the columns:

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

Alan Beban