inserting Comments through VBA

[fahadakbar]

Hello friends
I am trying to put some comments in a sheet through VBA
I know that how to put in a comment. I can use
Range("A1").AddComment("vvv").Visible =False
and this will work perfectly
However, when I use another reference style "Cells" - it doesn't work e.g
Cells(1,1).AddComment("vvv").Visible = False
this will give me a object definition error--
Does anyone know why it happens ? and hot to fix it ?

<tbody>
</tbody><colgroup><col span="7"></colgroup>

 

[ParamRay]

.
.

It's because A1 already has a comment.

Clear the comment first and then try again...

 

[fahadakbar]

lol... what a catch thanks

 

[fahadakbar]

I have another question
I want a comment at A1 which will have text that is in cells B1 , B2 and B3
e.g B1, B2, & B3 has A , B & C in there
I want the macro to insert a comment in A1 with the text A,B,C
any way to do that ?

<tbody>
</tbody><colgroup><col span="8"></colgroup>

 

[ParamRay]

.
.

Sub Add_Comment()
    
    Dim ComTxt As String
    
    ComTxt = _
        Range("B1") & " " & _
        Range("B2") & " " & _
        Range("B3")
    
    With Range("A1")
        
        On Error Resume Next
            .ClearComments
        On Error GoTo 0
        
        .AddComment
        .Comment.Text Text:=ComTxt
    
    End With

End Sub