AddComment Method
Private Sub CommandButton1_Click() Range("A1").AddComment ("this is for your information") End Sub 'Remove Comment Private Sub CommandButton2_Click() Range("A1").Comment.Delete End Sub