Hi Faby,

Try:

'=============
Public Sub Tester()
Dim rng As Range
Dim col As Long
Const rw As Long = 3

Set rng = Rows(rw).Find(What:="successful", _
After:=Rows(rw).Cells(1), _
LookIn:=xlFormulas, _
LookAt:=xlPart, _
SearchOrder:=xlByColumns, _
SearchDirection:=xlNext)
If Not rng Is Nothing Then
col = rng.Column
MsgBox col
End If

End Sub
'<<=============



---
Regards,
Norman



"Faby" wrote in message
ups.com...
How can I retrieve the column number of a cell in a specific row.
ie i want to get the column number of a cell in row 3 that holds the
value "successful" for instance
Thanks
Faby