G'day

Try this:


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Intersect(Target, Range("F8:L8")) Is Nothing Then

If DTPicker1.Visible Then DTPicker1.Visible = False

End If

If Not Intersect(Target, Range("F8:L8")) Is Nothing Then

With ActiveCell
.Offset(0, -1).Value = Target.Value
End With

End If
End Sub

Format Cells F7:L7 as Custom "ddd" for eg Mon, Tue, Wed, etc.......
Format Cells F7:L7 as Custom "dddd" for eg Monday, Tueday, etc.......

(Remove quotes from ddd & dddd)

HTH
Mark.