Get column number & based on some text in a row.

[singh.jms]

Hello,

I am looking for help on this:

I want to get the column number, if some text (say "Clicks") are found in heading (Row 2). I want to use this variable as reference to column number with rest of my code.

Thanks,

 

[VoG]

Try like this

Sub atest()
Dim Found As Range, iCol As Long
Set Found = Rows(2).Find(what:="Clicks", LookIn:=xlValues, lookat:=xlWhole)
If Found Is Nothing Then
    MsgBox "not found", vbExclamation
Else
    iCol = Found.Column
    MsgBox iCol, vbInformation
End If
End Sub