Help finding the last cell in a range.

[wnazzaro]

You're trying me out

Dim iYearCol As Long
Dim iQtrOff As Long
Dim iQtrCol As Long
 
    iYearCol = Cells(1, Columns.Count).End(xlToLeft).Column
    iQtrOff = Application.Match("Q3", Range(Cells(2, iYearCol), Cells(2, "IV")), 0)
    iQtrCol = iYearCol + iQtrOff - 1

Like I said, it gets harder for me. Apparently not for you. : )
I have so much to learn.