Mark date when a drop down list option is selected

[t_faragher13]

I have a column with validation rules that only allow for the drop down list options to be selected. This is a live document to track the progress of particular actions.
I have date columns for each selection option. I would like a macro that adds the date to the appropriate column when each option is selected.
The drop down list column is F:F and each date column will be paced after this one.
Can anyone help with this?

Thanks

Tom

 

[t_faragher13]

Also ge tthis run-time error message when I copy by dragging the corner down.

 

[VoG]

Try adding the line in red

Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Long
If Target.Count > 1 Then Exit Sub
If Target.Column = 6 Then
    Application.EnableEvents = False
    Select Case Target.Value
        Case "Reviewed": i = 1
        Case "DCR raised": i = 2
        Case "DCN awaiting approval": i = 3
        Case "Issued and controlled in SDD": i = 4
        Case "Issued, needs to go onto SDD:": i = 5
        Case "Being created": i = 6
    End Select
    Target.Offset(, i).Value = Date
    Application.EnableEvents = True
End If
End Sub