I have a function that rolls over a column in a sheet and fills in the
interior color to draw the eye to problems. It's got a lot of entries,
but they basically look like...

src = ast.Range("BV" & i)
Select Case src
Case 1, 2, 3, 11, 18HPL
.Interior.Color = ourPurple
.ClearComments

[ lots more Cases ]

Case Else
.Interior.Color = -1
.ClearComments
end select


The Case Else is there to wipe out any color that may have been put
into that cell on a previous run. But when I set the color to -1, the
border disappears.

1) why does the border disappear when I set the interior?
2) is there some other way to clear out the interior that I should use
instead?

Thanks!

Maury


What I'm really trying to do here is simply remove any color that
might have been there in the past.