Using INDEX MATCH in VBA with Variable Lookup Locations

I am having trouble using variables within the lookup criteria in Index Match. Some background: I use the following code to set a variable's value to the row # of whatever cell contains "Current" within column B:

Dim rowHeaderNum As Integer

    rowHeaderNum = 0
    rowHeaderNum = Application.Match("Current", ActiveSheet.Range("B:B"), 0)

Then I use the below to store the column # of the cell within the row 'rowHeaderNum' that contains the value "CurrentActual" to another variable:

Dim currActColNum As Integer

currActColNum = 0
    currActColNum = Application.Match("CurrentActual", Rows(rowHeaderNum & ":" & rowHeaderNum), 0)

Below is the Index Match line that I can't get to work:

Dim currActRev As Double

    currActRev = 0
    currActRev = Application.Index(Columns(currActColNum), Application.Match("Gross Operating Profit", Columns("N:N"), 0))

currActRev will store a dollar amount. The Match function will always use column N as the lookup array. When I run the Index Match line I get a type mismatch error in the debugger.

Thanks in advance!