Oddly I am only just getting this error when it has previously worked without a problem, it errors out on Me.Calendar1.Value = Date ??? Any ideas as to why this would now not work?
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "dd/mm/yyyy"
End Sub
-----------------------------------------------
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub
Private Sub Calendar1_Click()
ActiveCell = Calendar1.Value
ActiveCell.NumberFormat = "dd/mm/yyyy"
End Sub
-----------------------------------------------
Private Sub UserForm_Activate()
Me.Calendar1.Value = Date
End Sub