A cell can hold 32767 characters but only 1024 of those will be visible in
the cell so your 250 is incorrect.

To add a Comment to a cell with the text from that cell.

Sub Comment_Add()
Dim cmt As Comment
Dim r As Range
For Each r In Range("D3:D100") 'adjust to suit
Set cmt = r.Comment
If cmt Is Nothing Then
Set cmt = r.AddComment
cmt.Text Text:=r.Text
End If
Next r
End Sub


Gord Dibben MS Excel MVP

On Thu, 11 Dec 2008 09:29:01 -0800, shell
wrote:

I have a user that needs to be able to hover over a cell and see the entire
contents of the cell. We thought it might be beneficial to create a macro
that would copy the entire contents of the cell and create a comment (since
the cells only show 250 characters and comments can hold more). We would
need this for each and every cell. Any ideas? I need this ASAP. Thanks.