Convert column to text

[Guest]

Hello,
I want to convert a column with "SSN" title in text but I don't know where
the column is located. The programation below gives me the first column wich
contains SSN title. Does anyone know how to find an exact match of the SSN
title ?
Thanks!
} Set rng = wks.Rows(1).Find(What:="SSN")
} If Not rng Is Nothing Then rng.EntireColumn.TextToColumns Cells(1,
rng.Column)

 

[Guest]

Find takes a number of arguments. Add this argument and it will require an
exact match...

Set rng = wks.Rows(1).Find(What:="SSN", LookAt:=xlWhole)

 

[Don Guillett]

try
rng = wks.Rows(1).Find(What:="SSN").column

 

[Dave Peterson]

Record a macro when you do the .find manually. You'll see one of the options is
to look at the whole cell.

LookAt:=xlWhole

I think you'll find it better to specify all the parms that you can. Excel/VBA
will remember the last settings used--no matter if the user did it or your code
did it.

with wks.rows(1)
set rng = .Find(What:="SSN", _
After:=.cells(.cells.count), _
LookIn:=xlValues, _
LookAt:=xlWhole, _
SearchOrder:=xlByRows, _
SearchDirection:=xlNext, _
MatchCase:=True)


I specified match case and whole cell.