Finding Column Letters

[Geoff]

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

[Geoff]

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

"Geoff" wrote:

> 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
>