Date Picker from user form

Hi everyone

I have a calender in userform1, and I want to be able to click on a cell that is formatted to date, then for the calender to appear, then me select a date and for it tobe placed into the selected cell, would anyone be able to help me this code please?

Many Thanks

Denzil

Hi Roy

Thank you very much for your reply, do I just put your code in the the worksheet thats relevent as you sent it to me?

Right click on the tab and veiw code and place it in there?

Many thanks again

Denzil

Hi Roy

Thanks again for your quick response, ive bin playin with the worksheet, and havent had any joy, Ive noticed in the code it has A1, could that be changed to any cell that is date formatted?
I ran tha code selecting A1 and it has an error and the code stops at the line [QUOTE]If Target.Address = "$A$1" Then formdtp.Show

Any ideas? have I done something wrong?

Many Thanks Again

Denzil

Hello Again Roy

Thank you for all your help, It appears I have to add a date in the cell for the code to work, it doesnt open the calender if the cell is blank, un yet I have formatted the cell as date, is there any way I can change it to open on a blank date formatted cell please??

Could you explain the button thing you mentioned on the userform that has to be there for the code to put the date in the active cell? is there any way the active cell will show the date of the calender as it is selected, so there is no need to press a button?

Many Thanks

Denzil

Hi Roy Thanks for your reply

That example is exactly how I want it on my worksheet, is it just a case of copying the code?

MAny Thanks

Denzil