Private Sub Calendar1_Click() 
UserForm5.TextBox1 = Calendar1.Value 
UserForm5.TextBox1.SetFocus 
If UserForm6.Caption = "date" Then 
UserForm3.TextBox1 = Calendar1.Value 
UserForm3.TextBox1.SetFocus 
Else 
UserForm6.Caption = "date1" 
UserForm3.TextBox2 = Calendar1.Value 
UserForm3.TextBox2.SetFocus 
Else 
UserForm6.Caption = "date2" 
UserForm3.TextBox3 = Calendar1.Value 
UserForm3.TextBox3.SetFocus 
End If 
UserForm6.Hide 
End Sub 
 
 ممكن المساعده ولكم جزيل التقدير والاحترام