Since you can't change how Excel prints cell comment you might consider
listing cell comments in a range and printing the list. Here's a routines
to do the listing. It operates on the active sheet. It hasn't been tested
extensively.

Sub ListNotes()
Dim ListSheet As Worksheet, CurrSheet As Worksheet
Dim Cell As Range, Counter As Integer
Dim CellName As String, CommentsRg As Range
On Error GoTo NoNotes
Set CommentsRg = Cells.SpecialCells(xlCellTypeComments)
Set CurrSheet = ActiveSheet
Set ListSheet = Worksheets.Add
ListSheet.Range("A1").Value = ActiveWorkbook.Name & " " &
ActiveSheet.Name
Counter = 1
On Error Resume Next
For Each Cell In CommentsRg
Counter = Counter + 1
With ListSheet
Err.Clear
.Cells(Counter, 1).Value = Cell.Name.Name
If Err.Number = 0 Then GoTo SkipAddress
.Cells(Counter, 1).Value = Cell.Address
SkipAddress:
.Cells(Counter, 2).Value = Cell.Comment.Text
End With
Next
Exit Sub
NoNotes:
MsgBox "No cellnotes on this sheet"
End Sub


--
Jim
"flo1730" wrote in message
...
| I'm creating an Excel checklist for other users and I have added context
to
| each item on the list using the "comments" function.
|
| I have an issue regarding the way the comments are set out for printing. I
| have selected the "print comments at end of sheet" option in page setup.
This
| is fine except that the comments are referenced by cell number which won't
| make much sense to my intended audience.
|
| Is there any way to reference the printed comments by "Cell Name"?
|
| Thanks,