PLease make this work. tying to hide comments

[pedie]

Not working so far. could be very easy for you.

Sub try()
 For Each cell In Range("C1:D21")
 cell.Comment.Visible = False
 Next cell
End Sub

 

[VoG]

Try

Sub try()
Dim cmt As Comment
For Each cmt In ActiveSheet.Comments
   If Not Intersect(cmt.Parent, Range("C1:D21")) Is Nothing Then cmt.Visible = False
Next cmt
End Sub

 

[pedie]

Great! thanks alot!