Solved: macro to print cell comments

[austenr]

Is there a macro way to print cell comments progmatically? I have 4 cells with comments I want to give the user the ability to print them if they wish.

[Bob Phillips]

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.PrintComments = xlPrintInPlace
End With
End Sub

[austenr]

Thanks Bob.