Calendar with restricted dates to select

Hi, On your Toolbar Select, "View","Toolbars", "Control ToolBox", at the bottom of the menu , there is an icon (Looks like Hammer & Spanner) Icon Says "More Controls", Click this and Select Calendar from the list, Click sheet, Calendar Appears on sheet.

Right click youy sheet, Select "View Code", VB Window appears.
Paste Both the codes (in one) into the Window.
Close Window
When you click in sheet the Calendar should disappear and when you click cell "A1" it reappears.
The calendar Code tells you, when you click a Weekday or the Weekend.
You need to alter it to do what you want.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" Then
    Calendar1.Visible = True
Else
    Calendar1.Visible = False
End If
End Sub
Private Sub Calendar1_Click()
If Not Weekday(Calendar1.Value) = 1 Xor Not _
    Weekday(Calendar1.Value) = 7 Then
    MsgBox "Do something"
Else
    MsgBox "You Selected a Week Day"
Exit Sub
End If
End Sub

Regards Mick