Nevermind...I figured it out...I used the following code, FYI.

If anyone knows a more efficient way to code this, please let me know
however! At present anything that works is wonderful.


Dim cdat As Date
Dim D As Integer



cdat = Sheets("Data Layout").range("B35").Value
MsgBox cdat
cdat = cdat - Day(15)
D = Day(cdat)
cdat = cdat - Day(D)

MsgBox cdat