Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = Format(MonthView1, "ddd dd/mm/yy")
Unload Me
End Sub
Private Sub UserForm_Initialize()
MonthView2.Month = Month(Date)
MonthView1.Month = Month(Date) - 1
MonthView2.Value = Date
MonthView1.Value = DateSerial(Year(Date), Month(Date) - 1, Day(Date))
End Sub
Private Sub MonthView2_DateClick(ByVal DateClicked As Date)
ActiveCell.Value = Format(MonthView2, "ddd dd/mm/yy")
Unload Me
End Sub