Repeat Events Calendar

Lost at why this will not work, This is the the work of another member on the forum.Andy is a good programmer but
not on much. I made some changes to Form and its not working right. Maybe a expert can see what I did wrong,the repeat event is not repeating events
for future years. This has some great code work by Andy,when using as add-in its very helpful. Deeds some clean up but that can wait for now.

Z

This is driving me crazy, missing something.Think the problem is in userform Sub LoadDataFromWksht(ByVal SelectedDate As String, X As Integer)

Lot of people looking,any idea's yet? The code work is pretty complex so way over
my head.Hoping a expert can make it work.If this was a add-in could it be called with commandbutton
in another book?.I can right click for menu but would like to open with userform button.

Got it working, here is a updated version. One problem I have is getting calendar to
go past 2029?

Getting this error if I try and input data into years above 2029
wb1.Sheets(ShtName).Range("A" & Row).Value = TheDate 'Unconditionally puts the date into column a
Can't make the calendar work above year 2029 at all,?

No matter how much I go over code, just don't understand what causes the problem with years after 2029.Everything works until 2029, I can put a repeat event in until 2060 and it install the data right.Click on
calendar past 2029 and get error. I'm looking on some advice on a fix,
Thanks Z

With 200 views seems like someone would have answer.I admit this is over my head that is why I need expert help.There are a lot of Great programmers on this site and
hoping one will see the problem.The Calendar works in all months in 2029 until you get to December.

Happy Holidays Z