Hi Jaemun,
- First you need to create a Userform.

- Right click on the toolbox and select "Additional Controls..."

- Check the box next to Calendar Control 9.0 and click OK. This will add a
calendar control to your toolbox.

- Place a Calendar control in the userform and size it how you want..

- Double click on the userform to bring up the code widow. In the top left
dropdown box select Calendar1. In the right dropdown select DblClick
- In the code window enter:
Private Sub Calendar1_DblClick()
ActiveSheet.Range("D5").Value = Calendar1.Value
End Sub

- You will need to create a command button on the sheet to open the userform.
In that sheet's code enter:
Private Sub CommandButton1_Click()
UserForm1.Show
End Sub

Hope that helps. PS if you find the MSCAL.HLP file on your hard drive it will
give you more info on customizing the calendar.



Jaemun wrote:
Anyone please help,

How to create a calendar using userform. I mean when user click on the
prefered date, it automatically display into a cell e.g. user click on 1,2,4
and 7 in the month of December, 2005 then click ok, the output display in
sheet1 cell (d5) as 1,2,4 and 7 Dec, 2005,

Thanks in advance.
Jaemun.