Thanks -- this is the code that works::

Dim myCol As Long
Dim myCell As Range

Set myCell = Cells.Find("Code")

If Not myCell Is Nothing Then
myCol = myCell.Column
End If

For Each c In Columns(myCol).Cells
.....
Next c