Hi Guy's

Thanks for your help.
Alan, your right, it is not needed to activate the cell before assigning to
the variable, but because I had to search in that column for a specific
value is is easier to activate the cell. So I will use the solution from
Tom.

Gerrit van Stempvoort

"Alan Beban" wrote in message
...
There's no need to activate the cell before assigning to the variable:

Dim col_stapp As String
col_stapp = Cells.Find(What:="stapp", After:=ActiveCell, _
LookIn:=xlValue, LookAt:=xlWhole, SearchOrder:=xlByRows, _
SearchDirection:=xlNext, MatchCase:=False).Column

Alan Beban

Tom Ogilvy wrote:
Dim col_stapp as String
Cells.find(What:="stapp", After:=ActiveCell, LookIn:=xlValue,
LookAt:=xlWhole, SearchOrder:=xlByRows, SearcgDirection:=xlNext,
MatchCase:=False).Activate
col_stapp = ActiveCell.Column