Hi pandey,

Could you please help me to sloving this issues.

My work environment is WIN 7, Excel 2010

Public Sub UserForm_Activate()
'If Weekday(Date, vbSunday) = 1 Then
'EntryDateBeg = Date - 2
'ElseIf Weekday(Date, vbSunday) = 2 Then
'EntryDateBeg = Date - 3
'Else
'EntryDateBeg = Date - 1
'End If
'Me.Calendar1.Value = EntryDateBeg
'Me.Calendar2.Value = Sheets("Home Sheet").Range("AB2").Value
'End Sub

for calendar control we are using above code. but in this line "me.calendar1.value = entrydateBeg " error is comming. the error is "Can't find project or library"

How to rectify this and how to get calendar control in my form.

Thanks,
Santhi.