Code:
Sub FindAddressColumn()
Dim rngAddress As Range
Set rngAddress = Range("A1:Z1").Find("Search:")
'rngAddress(Selection.Offset(1), Selection.End(xlDown))
'rngAddress(Seleciton.Offset(1), Selection.End(xlUp)).Select
If rngAddress Is Nothing Then
MsgBox "Address column was not found."
While ActiveCell Is Not Nothing <-------my problem is here
If ActiveCell = ActiveCell.Offset(1) Then
'dostuff Else
ActiveCell = ActiveCell.Offset(1)
Exit Sub
End If
' Range(rngAddress, rngAddress.End(xlDown)).Select
End Sub