VBA search column name

[negi]

Hi expert, im using this code need your help if we can search value from a range.

Sub Demo()
Dim ws As Worksheet
Dim table As ListObject
Dim lstrow As ListRow
Dim r As Long
Dim n As Long
Dim e As Long
Dim strSearch As String
Dim invoice As Range
Dim Cases_sold As Range
Dim rate As Range
Dim a As Range
Dim b As Range
Dim c As Range
' strSearch = "invoice"

Set invoice = Sheet1.Rows(1).Find(what:="Invoice", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'--


Set Cases_sold = Sheet1.Rows(1).Find(what:="cases_sold", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'---

Set rate = Sheet1.Rows(1).Find(what:="rate", LookIn:=xlValues, _
lookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False)
'----

 

[Zot]

What value you were talking about?

The code will find cells where word Invoice, cases_sold and rate located as range in row 1 where they are named as the words themselves.

Therefore, if you are looking for cell address, then invoice.Address will give the address for example.

 

[negi]

What value you were talking about?

The code will find cells where word Invoice, cases_sold and rate located as range in row 1 where they are named as the words themselves.

Therefore, if you are looking for cell address, then invoice.Address will give the address for example.

Thanks .
i need to pick word from range instead of Invoice, cases_sold and rate.

 

[Zot]

the range value will get the result you're looking for

 

[negi]

the range value will get the result you're looking for

Yes