Change column in which date is placed

Hi All

I'm trying to modify this code to place the date in A2 once content is added in B2. Presently it's putting the date in C2.

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("B2:B500")) Is Nothing Then

            With Target(1, 2)

                .Value = Date


            End With

        End If

End Sub

I'd also like the date to be in the format DD MMMM YYYY if possible.

Grateful for any advice.

Hello CDandVinyl,

Private Sub Worksheet_Change(ByVal Target As Range)

    If Target.Cells.Count > 1 Then Exit Sub

        If Not Intersect(Target, Range("B2:B500")) Is Nothing Then

            Target.Offset(0, -1).Value = Date

        End If

End Sub

Leith's code should maintain the date provided on the worksheet change event. It will not change upon opening like it does with either the Today() or Now() excel functions.