View Full Version : Solved: Find blanks - move over and then highlight
Djblois
03-07-2007, 09:32 AM
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
03-07-2007, 12:06 PM
For Each oArea In Range("A2:A" & finalrow).SpecialCells(xlCellTypeBlanks).Offset(, 3).Areas
oArea.Resize(, 16).Interior.ColorIndex = 15
Next oArea
Djblois
03-07-2007, 12:55 PM
is oArea a defined variable?
Bob Phillips
03-07-2007, 12:58 PM
Yes, best defined as range.
Djblois
03-07-2007, 02:11 PM
XLd,
that worked perfectly. Thank you again.
Powered by vBulletin® Version 4.2.5 Copyright © 2024 vBulletin Solutions Inc. All rights reserved.