Printing Comments & Cell Reference

[Jennifer L.]

Greetings:

We have a document that we want to print comments on a seperate page. That
is easy - what I cannot figure out is how to change the "cell" reference that
is printed from an actual cell reference such as B7 to what that cell says
such as "budget".

I know I could turn on the column and rows show they show when printing but
the user would not like to do that.

Can someone please assist? Is what I want to do even possible?
Thanks
Jennifer

 

[Marcelo]

do you think use the first line of the coment box to put Budget?
it will show as:

Cell: B7
Comment: Budget
Here is your comments


hth
--
regards from Brazil
Thanks in advance for your feedback.
Marcelo



"Jennifer L." escreveu:

 

[Jennifer L.]

I was hoping to put the work "Budget" where B7 is located. Is that possible?

 

[Marcelo]

sorry but I do not have a clear understand.

Are you looking for "replace" the cell address (name) from B7 to Budget?


--
regards from Brazil
Thanks in advance for your feedback.
Marcelo



"Jennifer L." escreveu:

 

[Jennifer L.]

That is exactly what I am looking for, to "replace the cell address B7 to the
word Budget. The word Budget is the contents of cell B7.

Thanks for following up, any ideas on how to accomplish this?
Thanks
Jennifer

 

[Marcelo]

i do not have sucess trying named cell.

I think this is possible with code.


--
regards from Brazil
Thanks in advance for your feedback.
Marcelo



"Jennifer L." escreveu:

 

[Gord Dibben]

This macro from Debra Dalglesih will place comments, addresses and contents on a
new sheet.

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