VBA: Find Header Return Last Row

[Nine Zero]

Hello,

Been searching and searching and not quite what I am looking for.

Need to search Row(1) for the header "Total"

Return the last row used in the Column where the header "Total" was found

Thank you

 

[JackDanIce]

Try:

Dim LR  As Long
Dim r   As Long
On Error Resume Next
r = Cells(1, 1).UsedRange.Resize(1).Find(what:="Total", lookat:=xlWhole).Column
On Error GoTo 0
If r Then LR = Cells(Rows.Count, r).End(xlUp).Row

 

[Nine Zero]

Try:

Dim LR  As Long
Dim r   As Long
On Error Resume Next
r = Cells(1, 1).UsedRange.Resize(1).Find(what:="Total", lookat:=xlWhole).Column
On Error GoTo 0
If r Then LR = Cells(Rows.Count, r).End(xlUp).Row

Keep getting on the red line
Run-time error '438':
Object doesn't support this property or method

 

[JackDanIce]

Change line in red to:

r = Cells(1, 1).EntireRow.Find(what:="Total", lookat:=xlWhole).Column

and try (tested and r = 17 if I put "Total" into Q1)

 

[Nine Zero]

Change line in red to:

r = Cells(1, 1).EntireRow.Find(what:="Total", lookat:=xlWhole).Column

and try (tested and r = 17 if I put "Total" into Q1)

Worked like a charm, thank you

 

[JackDanIce]

You're welcome