Here is a macro I recorded to add a watermark to one of my sheets. It
doesn't print on every page as a true watermark would, but then my report is
only one page. Look at it, modify it, use it if you can or just trash it.
Carlos
Sub GreyWatermark()
'
' GreyWatermark Macro
' Macro recorded
' Keyboard Shortcut: Ctrl+Shift+G
'
ActiveSheet.Shapes.AddTextEffect(msoTextEffect1, "Partial", "Arial
Black", _
72#, msoFalse, msoFalse, 237.75, 154.5).Select
Selection.ShapeRange.Fill.Visible = msoTrue
Selection.ShapeRange.Fill.Solid
Selection.ShapeRange.Fill.ForeColor.SchemeColor = 22
Selection.ShapeRange.Fill.Transparency = 0.5
Selection.ShapeRange.Line.Weight = 0.75
Selection.ShapeRange.Line.DashStyle = msoLineSolid
Selection.ShapeRange.Line.Style = msoLineSingle
Selection.ShapeRange.Line.Transparency = 0#
Selection.ShapeRange.Line.Visible = msoFalse
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 102#
Selection.ShapeRange.Width = 260.25
Selection.ShapeRange.Rotation = 0#
Selection.ShapeRange.IncrementRotation -26.1
Selection.ShapeRange.ScaleWidth 1.29, msoFalse, msoScaleFromBottomRight
Selection.ShapeRange.ScaleHeight 1.33, msoFalse, msoScaleFromTopLeft
End Sub