I have created a simple spreadsheet. I want to add comments to certain cells
and I want the comments to be printed at the bottom of the spreadsheet, as
they are in a Word document. The reason for this is that I want the comments
to be visible when the chart is printed, and I don't want the comments to
obscure the chart.

"administratorMS" wrote:

I have created a simple spreadsheet. I want to add comments to certain cells
and I want the comments to be printed at the bottom of the spreadsheet, as
they are in a Word document. The reason for this is that I want the comments
to be visible when the chart is printed, and I don't want the comments to
obscure the chart.

Thank you. I didn't know about this feature. It's not quite as good as the
Footnote feature in Word because it doesn't number the comments. And as the
printed spreadsheet doesn't show cell references, it's not clear which cell
on the spreadsheet the comment actually belongs to, especially as the cells
with comments are not highlighted.

"challa prabhu" wrote:

Tp Add comments
1. Click any cell.
Do one of the following;
On the Insert menu, click Comments
-or-
Right the cell, and click Insert Comment.

Assuming that you have already assigned few comments to few cells in the
sheet.
To print comment:
1. On the File menu, click Page Setup.
2. In the Page Setup dialog box, click the Sheet tab.
3. In the Comments list, click At end of sheet.
4. Click OK

Challa Prabhu


"administratorMS" wrote:

I have created a simple spreadsheet. I want to add comments to certain cells
and I want the comments to be printed at the bottom of the spreadsheet, as
they are in a Word document. The reason for this is that I want the comments
to be visible when the chart is printed, and I don't want the comments to
obscure the chart.

Would a separate sheet with the comments and cell addresses be sufficient?

Debra Dalgleish's macro will do that.


Sub ListComms()
Dim cell As Range
Dim sh As Worksheet
Dim csh As Worksheet
Set csh = ActiveWorkbook.Worksheets.Add
csh.Name = "Comments"
For Each sh In ActiveWorkbook.Worksheets
If sh.Name < csh.Name Then
For Each cell In sh.UsedRange
If Not cell.Comment Is Nothing Then
With csh.Range("a65536").End(xlUp).Offset(1, 0)
.Value = sh.Name & " " & cell.Address
.Offset(0, 1).Value = cell.Comment.text
End With
End If
Next cell
End If
Next sh
End Sub


Gord Dibben MS Excel MVP

On Fri, 19 Jan 2007 12:15:32 -0800, administratorMS
wrote:



"administratorMS" wrote:

I have created a simple spreadsheet. I want to add comments to certain cells
and I want the comments to be printed at the bottom of the spreadsheet, as
they are in a Word document. The reason for this is that I want the comments
to be visible when the chart is printed, and I don't want the comments to
obscure the chart.

Thank you. I didn't know about this feature. It's not quite as good as the
Footnote feature in Word because it doesn't number the comments. And as the
printed spreadsheet doesn't show cell references, it's not clear which cell
on the spreadsheet the comment actually belongs to, especially as the cells
with comments are not highlighted.