You could try this.
Insert|Object|calendar control
A calendar should appear.
Right click the worksheet tab, view code and paste this in:-

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub
If Not Intersect(Target, Range("A1:A10")) Is Nothing Then' Change to suit
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Calendar1.Value = Now
ElseIf Calendar1.Visible Then Calendar1.Visible = False
End If
End Sub

Private Sub Calendar1_Click()
ActiveCell.Value = (Calendar1.Value)
ActiveCell.NumberFormat = "dd/mm/yyyy"' Change to suit
End Sub

Mike

"Andre ZA" wrote:

I dont want to type in the date I want to click on calendar
this is only a example

Date Description what I did with chash Cash withdraw
15/12/2007 Pay Koos R 10.00
? Pay taxi R 200 0
? Spent on dog R 165 R 112.25

--
Ak ZA