Refering to a cell in a named range

[scottintexas]

I have a a column named TractID. I need to insert text into a single cell in the column. Running the code below the row is 4 and TractID is currently column 1.

    Rows(intLastRow & ":" & intLastRow).Select
    Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
    Rows(intLastRow & ":" & intLastRow).Select
    Set rngActive = ActiveCell.EntireRow
    With rngActive
        .Cells(intCurrentRow, Range(TractID)).Value = txtTractID.Text
    End With

When I use this above code I get an error "Method Range of Object _Global" failed. When I put quotations around TractID I get a type mismatch error.