Private Sub cmdButtonExit_Click()
On Error Resume Next
Me.Hide
End Sub

'Private Sub LabelCell_MouseMove(ByVal Button As Integer, ByVal Shift As Integer, _
' ByVal X As Single, ByVal Y As Single)
' On Error Resume Next
' If ActiveCell.HasFormula Then Me.LabelCell.ControlTipText = "Has Formula" _
' Else Me.LabelCell.ControlTipText = "active cell"
'End Sub

Private Sub cmdSelected_Click()
InsertSelDate
End Sub

Private Sub ListBox1_Click()
On Error Resume Next
GetSelectedDay 1
End Sub


Private Sub ListBox2_Click()
On Error Resume Next
Call GetSelectedDay(2)
End Sub

Private Sub ListBox3_Click()
On Error Resume Next
Call GetSelectedDay(3)
End Sub

Private Sub ListBox4_Click()
On Error Resume Next
Call GetSelectedDay(4)
End Sub

Private Sub ListBox5_Click()
On Error Resume Next
Call GetSelectedDay(5)
End Sub

Private Sub ListBox6_Click()
On Error Resume Next
Call GetSelectedDay(6)
End Sub

Private Sub ListBox7_Click()
On Error Resume Next
Call GetSelectedDay(7)
End Sub

Private Sub MthDown_Click()
MonthMove -1
End Sub

Private Sub MthUP_Click()
MonthMove 1
End Sub



Private Sub YearDown_Click()
ChangeYear -1
End Sub

Private Sub YearUP_Click()
ChangeYear 1
End Sub

Private Sub UserForm_QueryClose(Cancel As Integer, CloseMode As Integer)
'handles red X close for form
If CloseMode = 0 Then
Cancel = True 'reset
frmCal.Hide

End If
End Sub