Current cell value into comment

[edizzi]

I am wanting to know if it is possible to automatically put the current cell value into an existing comment on that cell. I have an auto populating excel sheet in my workbook that has comments on all the active cells. The existing comment looks as follows:

####
Text
Text
####

Each comment is four lines with the first being a number the middle two are text and the last being another number. The last line is the current cell value that I have put in by hand. I am wondering if it is possible for that last number to auto populate with the cell value?

Thanks,
edizzi

 

[dscg]

Here's a macro that should do the trick:

Sub MacroCommenter()
Dim s As String
Dim r As Range

For Each r In ActiveSheet.UsedRange
On Error Resume Next
    s = r.Comment.Text
    r.Comment.Text Text:=s & Chr(10) & r.Value
Next r
    
End Sub

 

[edizzi]

Thanks so much that worked perfect and just saved me soooo much work!!!!!