Solved: macro to print cell comments

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.

[vba]


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

[/vba]

Thanks Bob.