Solved: Find blanks - move over and then highlight

[Djblois]

I want to find all the blanks in a column and then move over by 3 and then resize it to 16 and then highlight it. This is the code I tried but it won't work:

Range("A2:A" & finalRow).SpecialCells(xlCellTypeBlanks).Offset(, 3).Resize(, 16).Interior.ColorIndex = 15

[Bob Phillips]

For Each oArea In Range("A2:A" & finalrow).SpecialCells(xlCellTypeBlanks).Offset(, 3).Areas
oArea.Resize(, 16).Interior.ColorIndex = 15
Next oArea

[Djblois]

is oArea a defined variable?

[Bob Phillips]

Yes, best defined as range.

[Djblois]

XLd,

that worked perfectly. Thank you again.