Expand Range until the first occurence of a specific text - VBA

[karti1986]

Good Day Folks

I have been trying to expand my selection until the occurrence of "Total"(not including) in the same column. The below code gets me to the cell above the occurrence of "Total" but doesnt expand my selection.

Range(Selection, Selection.End(xlDown)).Find("Total", , xlValues, xlPart).Offset(-1).Select

Can you please help as in what am I missing here?

Regards
Karthik

 

[mse330]

Try to remove the .Offset(-1)

 

[Fluff]

How about

Range(Selection, Selection.EntireColumn.find("Total", , xlValues, xlPart).Offset(-1)).Select