It seems that you need to do one more step in 2007. Manually, it would be by
selecting the rectangle, using Drawing Tools contextual Format Tab, and in
the WordArt Styles, click the Text Fill and apply black or automatic. then it
shows. Unfortunately, recording this produces nothing! I don't know the code
to simulate the manual steps. FWIW.

"Karen" wrote:

I downloaded the CommentsNumbersPrint file in Excel Contextures to draw
number rectangles over the comment indicators on MS Excel 2000 & it worked
fine. However, I now have 2007 version of Excel & when I try to run the
macro it doesn't include the numbers. It does create the rectangle, however,
but provides no numbers as it did in 2000 (within the rectangles).

The following code is the code to draw a numbered rectangle AutoShape over
each comment indicator on the active sheet:

Sub CoverCommentIndicator()
Dim ws As Worksheet
Dim cmt As Comment
Dim lCmt As Long
Dim rngCmt As Range
Dim shpCmt As Shape
Dim shpW As Double 'shape width
Dim shpH As Double 'shape height

Set ws = ActiveSheet
shpW = 8
shpH = 6
lCmt = 1

For Each cmt In ws.Comments
Set rngCmt = cmt.Parent
With rngCmt
Set shpCmt = ws.Shapes.AddShape(msoShapeRectangle, _
rngCmt.Offset(0, 1).Left - shpW, .Top, shpW, shpH)
End With
With shpCmt
With .Fill
.ForeColor.SchemeColor = 9 'white
.Visible = msoTrue
.Solid
End With
With .Line
.Visible = msoTrue
.ForeColor.SchemeColor = 64 'automatic
.Weight = 0.25
End With
With .TextFrame
.Characters.Text = lCmt
.Characters.Font.Size = 4
.MarginLeft = 0#
.MarginRight = 0#
.MarginTop = 0#
.MarginBottom = 0#
.HorizontalAlignment = xlCenter
End With
.Top = .Top + 0.001
End With
lCmt = lCmt + 1
Next cmt

Why would the macro create the rectangle but not put the numbers on the
comments as it did in 2007 version? All advise is prematurely appreciated.

--
Thanks, Karen