Here's a little macro to do it for you........you can assign it to a button,
or just use the Keyboard shortcut of Ctrl-P

Sub PaidStamp()
'========================================
'Places "Paid" artwork on sheet
'Keyboard Shortcut: Ctrl+p
'========================================
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "Paid", "Arial Black",
96#, _
msoFalse, msoFalse, 252.75, 132.75).Select
Selection.ShapeRange.IncrementRotation -30#
Selection.ShapeRange.IncrementLeft -45#
Selection.ShapeRange.IncrementTop 64.5
Selection.ShapeRange.Fill.Visible = msoFalse
Range("A1").Select
End Sub

hth
Vaya con Dios,
Chuck, CABGx3



"Paul" wrote:

I've created an Invoice in Excel & it's workign fine. Is there a way to
insert a "Paid" stamp kind of comment on the invoice.