Help finding the last cell in a range.

[Bob Phillips]

Dim iYearCol As Long
Dim iQtrOff As Long
Dim iQtrCol As Long
iYearCol = Application.Match(2007, Range("1:1"), 0)
    iQtrOff = Application.Match("Q3", Range(Cells(2, iYearCol), Cells(2, "IV")), 0)
    iQtrCol = iYearCol + iQtrOff - 1
    MsgBox "Cell required is colum " & iQtrCol