Deleting rows without a fill
 

I want to delete rows that don't have a fill color. I've
tried

ElseIf .Cells(Lrow, "A").Interior.ColorIndex = 0
then .Rows(Lrow).Delete

within a loop but it doesn't work, yet when I try the
same statement with another fill number, like 40, it does
delete those rows.

Any help would be appreciated!

Glenn

Deleting rows without a fill
 

no fill color is xlNone

ElseIf .Cells(Lrow, "A").Interior.ColorIndex = xlNone then
.Rows(Lrow).Delete

? xlNone
-4142



--
Regards,
Tom Ogilvy

Glenn wrote in message
...
I want to delete rows that don't have a fill color. I've
tried

ElseIf .Cells(Lrow, "A").Interior.ColorIndex = 0
then .Rows(Lrow).Delete

within a loop but it doesn't work, yet when I try the
same statement with another fill number, like 40, it does
delete those rows.

Any help would be appreciated!

Glenn

Deleting rows without a fill
 

Glenn,

Try .ColorIndex = -4142

John

"Glenn" wrote in message
...
I want to delete rows that don't have a fill color. I've
tried

ElseIf .Cells(Lrow, "A").Interior.ColorIndex = 0
then .Rows(Lrow).Delete

within a loop but it doesn't work, yet when I try the
same statement with another fill number, like 40, it does
delete those rows.

Any help would be appreciated!

Glenn

Deleting rows without a fill
 

Thanks, Tom! That did it.


"Tom Ogilvy" wrote in message
...
no fill color is xlNone

ElseIf .Cells(Lrow, "A").Interior.ColorIndex = xlNone then
.Rows(Lrow).Delete

? xlNone
-4142



--
Regards,
Tom Ogilvy

Glenn wrote in message
...
I want to delete rows that don't have a fill color. I've
tried

ElseIf .Cells(Lrow, "A").Interior.ColorIndex = 0
then .Rows(Lrow).Delete

within a loop but it doesn't work, yet when I try the
same statement with another fill number, like 40, it does
delete those rows.

Any help would be appreciated!

Glenn

Deleting rows without a fill
 

Thanks John! That, in addition to 'XLNONE' works too!

"John Wilson" wrote in message
...
Glenn,

Try .ColorIndex = -4142

John

"Glenn" wrote in message
...
I want to delete rows that don't have a fill color. I've
tried

ElseIf .Cells(Lrow, "A").Interior.ColorIndex = 0
then .Rows(Lrow).Delete

within a loop but it doesn't work, yet when I try the
same statement with another fill number, like 40, it does
delete those rows.

Any help would be appreciated!

Glenn