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

Range("AE9").Select
        ActiveCell.Comment.Visible = True
        Range("AE9").Comment.Shape.Select True
But this bit DOES NOT WORK

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