Try this:

Selection.Find(What:="Some Value", After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate
Kirk

"benb" wrote:

I want to search an entire sheet for a cell containing a value then return
the column number for that cell. I have tried variations of
n=Activesheet.Find ([value], LookIn: xlValues, LookAt: xlWhole).Column, but
any adaption I try gets a compile error. Any help?