Watermark In Range

I have a procedure that creates ranges all the way down Sheet1(2006). each range is 65 rows. When I run the macro, it takes the first 65 rows as a fill source and fills the page down. Another procedure names each range as a corresponding date. this works fine
How do I add a watermark in the back ground that reformats the name of each range from Wednesday_Aug_02 to Wednesday, August 2. I would want the watermark to be very large and slightly diagnal. Here is the code I use to fill and name my ranges for 2006.

Sub timelayout()
'fills the formated range down the page
Set SourceRange = Worksheets("2006").Range("8:73")
Set fillRange = Worksheets("2006").Range("8:12000")
SourceRange.AutoFill Destination:=fillRange
End Sub
Sub DefineName2006()
'names each range based on the date of the first named range
Dim i As Long
Dim a, b, c, x
Dim dt As Date
dt = DateSerial(2006, 7, 6)

For i = 8 To 12000 Step 66
j = j + 1
a = Application.WorksheetFunction.Text(dt + j, "ddd")
b = Application.WorksheetFunction.Text(dt + j, "mmm")
c = Application.WorksheetFunction.Text(dt + j, "d")
x = a & "_" & b & "_" & c
ActiveWorkbook.Names.Add Name:=x, RefersToR1C1:="=2006!R" & i & "C1:R" & _
i + 65 & "C1"
Next i
End Sub

Other buttons and labels on a user form tell the user the name of the current range, that is scrolled at start up. the name is reformated and put in a label. Buttons allow the user to jump to tomorrow, yesterday, next week, last week. Things work I just want a water mark in the back ground to further help the user see which day they are on.