Addingcomments in Excel Cell

[cparralesl]

Guys,

I'm trying to insert comments in a Excel cell, since a new macro I've created. But no success.

Here is the Macro code:

Sub Macro1()
'
' Macro1 Macro
' Macro grabada el 16/12/2009 por cparrales
'

'
    Range("A5").Select
    Range("A5").AddComment
    Range("A5").Comment.Visible = False
    Range("A5").Comment.Text Text:="cparrales:" & Chr(10) & "Hola" & Chr(10) & "1" & Chr(10) & "2" & Chr(10) & "3"
    Range("B3").Select
End Sub

Any help will be appreciated.

Regards,

Cesar Humberto Parrales
Application Support

 

[HarleyQuinn]

Are you running the macro from within Excel?

Andy
---------------------------------
Zebracorn: 50% Zebra, 50% Unicorn = 100% Real.

http://lessthandot.com

 

[cparralesl]

Hi guys,

I've it solved already! Here it is my code in VBScript:

objXls.Worksheets("Sumary").Range(xRange).AddComment
objXls.Worksheets("Sumary").Range(xRange).Comment.Visible = False
objXls.Worksheets("Sumary").Range(xRange).Comment.Text("Reason:" & Chr(10) & Comment)

Thanks a lot!

Cesar Humberto Parrales
Application Support