Adding comments & deleting comments VBA

Hi

As you can see from the code below... when i press the button... it adds the details i want in certain cells. It also adds a comment in the active cell in row 8.
My problem is that how to i make a comment not appear if there is no text in there. This code always adds text in the box regardless of text or no text.

Can anyone help?

Please Login or Register  to view this content.

Private Sub CommandButton9_Click()
r = ActiveCell.Row
Rows(r).Select
Selection.Insert Shift:=xlDown

txt1 = txtcomment.Text
'Updates the Cells
Cells(r, "A") = cboCompanyName.Text
Cells(r, "B") = cboRegion.Value
Cells(r, "C") = TxtNameContact.Value
Cells(r, "D") = TxtFaxNumber.Value
Cells(r, "E") = TxtPhNumber.Value
Cells(r, "F") = TxtAddress1.Value
Cells(r, "G") = TxtAddress2.Value
Cells(r, "H") = TxtSuburb.Value
Cells(r, "I") = TxtCity.Value
Cells(r, "J") = TxtPostcode.Value
Cells(r, "K") = Txtemailaddress.Value
'Range(Cells(r, "A"), Cells(r, "A")).comment.Delete
Range(Cells(r, "A"), Cells(r, "A")).AddComment
Range(Cells(r, "A"), Cells(r, "A")).comment.Visible = False
Range(Cells(r, "A"), Cells(r, "A")).comment.Text Text:="" & txt1 & ""
MsgBox ("New Contact Added for " & cboCompanyName.Text & "")

End Sub

Please Login or Register  to view this content.

Bracket the code that adds the comment with

Please Login or Register  to view this content.

Hi

Try doing a test on the length of txt1. If the length is >0 then add the comment

Please Login or Register  to view this content.

HTH

rylo

Thanks mate. It works perfectly now!