Adding a Comment to Multiple Cells

As stated in an earlier comment, I need to add a comment to the same cell on multiple worksheets. I decided to try the macro and it works well on a single sheet. However, if I select multiple sheets, and run it, I get MS VBA error 400. I imagine a for loop could step through every selected worksheet and then step out after the last one. However, I am not a programmer and this is beyond my knowledge.
Additionally, is there any way to increase the number of permitted characters in the input dialogue box (it looks like 256 max at present)?
Mr. Spreadsheet? Anyone? Thanks!

Hello,

This was very helpful. Is there a piece of code I can add to the one that is given in this article that would allow me to keep comment's history?

I keep an employee roster at work. Employees shift from one group to another and from one supervisor to another (most of the time in groups). These comments help me track changes that occur. However, if let's say multiple changes occurred to the same employee, when I use code below it deletes the previous comment and replaces it with the new one. I would like for excel to keep the previous comment (e.g. "changed team on 06/01), then when I select that cell again, if there is already comment(s) present, it adds a new line to the comment box (e.g. switched to a new group of 06/17")...can you please assist?

Very useful

Clarification: I am selecting multiple sheets and want the comment to appear in the same cell on each sheet - so technically I am not just selecting multiple cells (at least not in the same sheet). Is there a way to do what I want
? Thanks.

For some reason, the paste procedure does not work in Excel 2010. When I paste special, the comment radio button is greyed out. If I select All, nothing changes on any sheets.

hi
if you are genius tell me how possible add multiple comment in one cell.

you can use vba

Is there a way to add multiple comments without deleting the comments that were already in the cell?

Thank you. That is useful. I modified the code a bit to add comments for a row from a matching row above:

Public Sub addComments()
Dim rCell As Range
Dim cCell As Range

For Each rCell In Selection
Set cCell = rCell.Offset(-1, 0)
With rCell
.ClearComments
.AddComment
.Comment.Text Text:=cCell.Value
End With
Next
Set rCell = Nothing
End Sub

These shortcuts might help get things done quicker, have a look if you like :

https://play.google.com/store/apps/details?id=info.lolfind.keys.office&feature=apps_topselling_free

Excellent Tip.

Not only is this is a REAL time saver but it's simple and easy! THANK YOU!!