Will you settle for two circles/ovals?
Insert a doughnut autoshape and adjust the color and size...

Sub MakeDoWithCircles()
With ActiveSheet.Shapes.AddShape(msoShapeDonut, 93, 103.5, 132, 129)
.Adjustments.Item(1) = 0.15 'adust inner circle.
.Fill.ForeColor.SchemeColor = 47 ' -7 = ColorIndex
End With
End Sub
--
Jim Cone
San Francisco, USA
http://www.realezsites.com/bus/primitivesoftware


"Zone"

wrote in message
In C++, you can draw a rectangle, then draw a bigger one around it,
then fill only the area between the two, leaving the inner rectangle
with no fill. This leaves the inner rectangle free to display
whatever's behind it. I cannot figure out a way to do this in VBA.
Whereas C++ has a fill function that will fill until it encounters a
different color border, I just don't see how to do this in VBA. Any
suggestions? TIA, James