hi there
I am tring to writh the value of the cell formated as "#,##0.000" inside the comment box in this format,...............but ...........could not make it
here is my try
Code
Sub Test()
Dim cf As Double, c As Range
Selection.ClearComments
'* Add Comment:
For Each c In Selection
If c <> 0 And IsNumeric(c) Then
[B]cf = Format(c, "#,##0.000")[/B]
With c
.AddComment "hmk :" & Chr(10) & " The Amount Was " & cf
.Comment.Visible = True
.Font.Color = -10477568
.Comment.Shape.AutoShapeType = msoShapeRoundedRectangle
.Comment.Shape.Select True
With Selection
.Font.Size = 9
.Font.Bold = True
.Font.Color = -10477568
.ShapeRange.Shadow.Visible = msoTrue
.ShapeRange.Adjustments.Item(1) = 0.3
.HorizontalAlignment = xlRight
End With
Display More
End Sub
any idea ? Thank u