Private Sub Worksheet_SelectionChange(ByVal Target As Range)

'   This will place todays date in a cell in the format dd mmm yyyy

Dim dtToday As String

'   Change the column numbers to those that you want todays date in it

If Target.Column = 9 Or Target.Column = 10 Then
    dtToday = Format(Date, "dd mmmm yyyy")
    myDay = Word(dtToday, 1)
    myDay = Replace(LTrim(Replace(myDay, "0", " ")), " ", "0")
    Cells(Target.Row, Target.Column).Value = "'" & myDay & " " & Left(Word(dtToday, 2), 3) & " " & Word(dtToday, 3)
End If
Cells.Columns.AutoFit          ' Autofit the columns
End Sub