Invalid procedure call in use of Shape property??

G

Guest

I get an "Invalid procedure call" error message on the 4th
line in this proc:

Private Sub butViewCmt_Click()
Dim cmt As Comment

For i = 1 To ActiveSheet.Comments.Count
Set cmt = ActiveSheet.Comments.Item(i)
cmt.Shape.AutoShapeType =
msoShapeFlowchartAlternateProc
If cmt.Visible = True Then
cmt.Visible = False
Else
cmt.Visible = True
End If
Next i

End Sub


The 4th line is: cmt.Shape.AutoShapeType

Why?

Thanks.

John Wirt
 
D

Doug Glancy

In Excel 2003, through Intellisense I get:

cmt.Shape.AutoShapeType = msoShapeFlowchartAlternateProcess

which is slightly different than what you had.

hth,

Doug Glancy
 
Top