IF And AND; Add A Line To The Code So Date Picked By The User Needs To Be Both Weekday And Not A Day In The Past

See attcahed code. I need to add a line to the code so date picked by the user needs to be both weekday and not a day in the past.

e.i today : 20/06/2006

if user pick a date before today or a weekend date pivot table does not update.

Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
Application. ScreenUpdating = False
If Weekday(MonthView1.Value, vbMonday) < 6 Then
With PivotTables("PivotTable1")
.PivotFields("DATE").CurrentPage = Format(MonthView1.Value, "dd/mm/yyyy")
End With
End If
Application.ScreenUpdating = True
End Sub