Block Out Dates For Calendar Vba

How do you block out the past dates?

Like today is september 14th, tomorrow I want september 15th to be highlighted but all dates previous to september 15th to be black.

Here is the code if it helps any one out. Thanks in advance for the help.

Sub CreateCalendar()
Dim lMonth As Long
Dim strMonth As String
Dim rStart As Range
Dim strAddress As String
Dim rCell As Range
Dim lDays As Long
Dim dDate As Date

'Add new sheet and format
Worksheets.Add
ActiveWindow.DisplayGridlines = False
With Cells
.ColumnWidth = 6#
.Font.Size = 8
End With