Help with setting a range

[Tridiro]

Hello, Can anyone explain why the following code errors out on the set firstcell ?

Dim MyRange As Range
Dim FirstCell As Range
Dim LastCell As Range
Dim InputCell As Range
Set FirstCell = Range("AA", ActiveCell.Row)
Set LastCell = Range("TA", ActiveCell.Row)
Set MyRange = Range(FirstCell, LastCell)
Set InputCell = MyRange.SpecialCells(xlCellTypeBlanks)

 

[shg]

That's not valid syntax. I think you want

Set FirstCell = Cells(ActiveCell.Row, "AA")

Edit: You could use

Set FirstCell = Range("AA" & ActiveCell.Row)

... but that adds two unnecessary functions.