To return the column number of a string

[prasanna.janardhana]

Hello All,
I am pretty new to Excel Macros. I was writing a code and stuck up
with this problem.
I want to write the code to return the column number of a particular
string.
Like, I have "VET" string in one of the cells, A20

My code has to return to the column number 1 for the string "VET"

Please help,
Thanks,
Prasanna.

 

[Guest]

Prasanna
Try these

Sub getcell()
For Each c In Selection
If c = "VET" Then
MsgBox "Cell " & c.Address & " Contains VET."
End If
Next
End Sub

Sub getcell2()
For Each c In Selection
If c = "VET" Then
MsgBox "Column " & c.Column & " Contains VET."
End If
Next
End Sub

Regards
Peter

 

[Guest]

or you do not have to select the range, see this

Sub getCell3()
x = Range("A2").CurrentRegion.Address
For Each c In Range(x)
If c = "VET" Then
MsgBox "Cell " & c.Address & " Contains VET."
End If
Next
End Sub