Hi Excelnoub
I think you have two issues (at least) going on. The argument for "DateAdd" is
DateAdd ( interval, number, date )
So, in your Code it becomes
Cells(ActiveCell.Row + 1, "V").Value = DateAdd("d", TextBox6.Value, TextBox4.Value * 7)
However, this change causes other issues.
Second issue...in frmCalendar2 and frmCalendar3 you have this Code that refers to Calendar1
Private Sub calendar1_click()
frmne.TextBox3.Value = Format(Calendar1.Value, "YYYY-MM-DD")
frmamendment.TextBox4.Value = Format(Calendar1.Value, "YYYY-MM-DD")
frmcontract.TextBox5.Value = Format(Calendar1.Value, "YYYY-MM-DD")
frmtermination.TextBox6.Value = Format(Calendar1.Value, "YYYY-MM-DD")
Unload Me
End Sub
Still trying to sort this all out...look up this alley...you know your Project and what you're trying to do...these are the things I see at the moment...will continue to look.
Bookmarks