Hi Jack,

For comments :

Sub AddOrDeleteComment()
Dim cmt As Comment

If ActiveCell.Comment Is Nothing Then
ActiveCell.AddComment "This is a new comment"
Else
ActiveCell.Comment.Delete
End If

End Sub

For disabling right-click :
Application.CommandBars("Cell").Enabled = False

Amit
"Jack" wrote in message
...
Hi...

I'm trying to create a macro button that will insert
and/or delete a comment within the active cell without any
access to the menu toolbars.

Also, how can i disable the right click in a workbook?

Thanks if anyone can help me.

Jack