Try this..

Dim x As Integer, y As Integer
Dim varRef As Variant
On Error Resume Next
For x = 20 To 0 Step -1 'Major version
For y = 20 To 0 Step -1 'Minor version
varRef =
ActiveWorkbook.VBProject.References.AddFromGuid("{ 86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}",
x, y)
Next y
Next x


Hope this Helps

Duncan




Benz wrote:
I just switched laptops, I went to create a new calendar in VB and under
Additional Tools I can not find the Calendar Control...... do I need to
re-download? if so where?

Thank You in advance for everyone who helps.