Macro- Problem/Command Button

Private Sub CommandButton4_Click()
Dim objComment As Comment
Set objComment = ActiveCell.AddComment
For Each cmt In ActiveSheet.Comments
If cmt.Shape.TextFrame.AutoSize = False Then cmt.Shape.TextFrame.AutoSize = True
cmt.Visible = False
Next cmt
End Sub

einem Command Button unter Excel (OfficeXP) zuweise funktioniert es problemlos, mache ich das selbe unter Excel(Office97) funktioniert es nicht???
An was kann das liegen, hat einer von Euch Profis eine Lösung...
Danke K-H