Evaluate cell in range and change cell attribute
That's different than the code you posted yesterday when you were using ""
try this line
If rCell.Interior.ColorIndex = 35 And IsNull(rCell.Value) Then
Mike
"S Himmelrich" wrote:
I get a type mismatch
if I put this line I still get an object error
If rCell.Interior.ColorIndex = 35 And rCell.Value Is Null Then
Not sure what is going on...humm...
On Apr 9, 5:04 pm, Mike H wrote:
What error because there's nothing wrong with the code
Mike
"S Himmelrich" wrote:
I've been working on the following code, but get an error on the
designated line - can someone help?
Dim rCell As Range
Sheets("Form").Select
Range("B2:C450").Select
For Each rCell In Selection.Cells
If rCell.Interior.ColorIndex = 35 And rCell.Value = "" Then <---
ERROR OCCURS
rCell.Borders.Color = 3
End If
Next rCell- Hide quoted text -
- Show quoted text -
|