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