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

In Excel 2003, through Intellisense I get:

cmt.Shape.AutoShapeType = msoShapeFlowchartAlternateProcess

which is slightly different than what you had.

hth,

Doug Glancy

wrote in message
...
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

That's it. Thanks. I clipped the Property vlues incorrectly.


"Doug Glancy" wrote in message
...
In Excel 2003, through Intellisense I get:

cmt.Shape.AutoShapeType = msoShapeFlowchartAlternateProcess

which is slightly different than what you had.

hth,

Doug Glancy

wrote in message
...
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