Finding Column Letters

[Guest]

On opening a form, 6 txtboxes are populated with column letters IF a field
name is found in data with a variable number of columns and field names in
varying order.

This code seemed to work fine but not always
Sub FindCols()
On Error Resume Next
txtFax.Text = Split(Rows(1).Find("Fax").Address, "$")(1)
txtSalut.Text = Split(Rows(1).Find("Salutation").Address, "$")(1)
txtFirstName.Text = Split(Rows(1).Find("FirstName").Address, "$")(1)
txtLastName.Text = Split(Rows(1).Find("LastName").Address, "$")(1)
txtJob.Text = Split(Rows(1).Find("Job").Address, "$")(1)
txtCompany.Text = Split(Rows(1).Find("Company").Address, "$")(1)
On Error GoTo 0
End Sub

yields:
txtFax = AB
txtSalut = ""
txtFirstName = ""
txtLastName = M
txtJob = A
txtCompany = CA

with this data
A M AB CA
Job LastName Fax Company

but with this data
A C M AB CA
Job Christian Name LastName Fax Company

yields:
txtFax = AB
txtSalut = ""
txtFirstName = ""
txtLastName = M
txtJob = A
txtCompany = C NOT CA ***********************

Find appears to search for capitals and not whole words?
How should my code be amended to make this work?

Geoff

 

[Guest]

So sorryyyyyyyy to waste time.
The code does work correctly. In testing I had failed to remove the
previous results from the txtboxes and the rest was sheer coincidence.
dohhh, shame

Geoff