Quick and dirty (so could be tidied up) but try this in your Workbook Open event:
Dim i As Integer
Sheets("Cash Totals").Unprotect
Sheets("PDQ Totals").Unprotect
For i = 1 To Day(DateSerial(Year(Date), Month(Date) + 1, 0))
Sheets("Cash Totals").Cells(4 + i, "B") = DateSerial(Year(Date), Month(Date), i)
Sheets("PDQ Totals").Cells(6 + i, "B") = DateSerial(Year(Date), Month(Date), i)
Sheets(i).Range("C2") = DateSerial(Year(Date), Month(Date), i)
Next i
Sheets("Cash Totals").Protect
Sheets("PDQ Totals").Protect
BSB
Bookmarks