Set objShape = ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _
sLeftPos, _
sTopPos, sWidthPos, sHeightPos)
I did a screen shot of the "view code" window. The above is what was highlighted in the coding. I only use the montly calendar. Hmmm.... I can't...