VBA to Print the Comments of a single cell

I am trying to print the Comments of a single cell.
Also, Is there a way to copy it to another sheet and print it from there.
It would seem to be a shape at that point.
I tried the latter, but the shape does not allow you to copy it.

This bit works

Code:

---

Range("AE9").Select
        ActiveCell.Comment.Visible = True
        Range("AE9").Comment.Shape.Select True

---

But this bit DOES NOT WORK

Code:

---

Selection.Copy
        Sheets("Sheet2").Range("A1").Paste

---

Range("AE9).Select
Selection.Copy
Sheets("Shee2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

arnelgp: Hi Thanks.

I can copy the Comments to the other sheet; The problem is that when I try to print, the error says:
" Excel did not find anything to print "

This code does show the comments, but I cant figure out how to print them.

Code:

---

Sub CopyComments()
ActiveSheet.Range("AE9").Select
ActiveSheet.Range("AE9").Comment.Visible = True
Selection.Copy

Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False

End Sub

---

How can I copy the text from a single cells' comments ?

This will get the Comments of a single cell for printing. It's NOT Text, but an image.

Code:

---

Sub CopyACellComments()

ActiveSheet.Range("AE9").Select
ActiveSheet.Range("AE9").Comment.Visible = True
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
Selection.PasteSpecial Paste:=xlPasteComments, Operation:=xlNone, _
SkipBlanks:=False, Transpose:=False


With ActiveSheet.PageSetup
        .PrintTitleRows = ""
        .PrintTitleColumns = ""
    End With
    ActiveSheet.PageSetup.PrintArea = ""
    With ActiveSheet.PageSetup
       
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintInPlace
        .PrintQuality = 600     
        .PrintErrors = xlPrintErrorsDisplayed     
        .FirstPage.RightFooter.Text = ""
    End With
    ActiveWindow.SelectedSheets.PrintPreview
End Sub

---

If there's a way to get comments from a single cell as Text, I'll like to know.

try:

Code:

---

Sheets("Sheet2").Range("A1").Value = Sheets("Sheet1").Range("AE9").Comment.Text

---

Now print Sheet2 normally.

p45cal: THANKS !

That works great.