I think this worksheet Change event code will do what you want...

Private Sub Worksheet_Change(ByVal Target As Range)
Dim X As Long
If Target.Address = "$F$8" Then
Target.Offset(-1).Value = Format(Target.Value, "dddd")
For X = 1 To 6
Target.Offset(, X).Value = Target.Value + X
Target.Offset(-1, X).Value = Format(Target.Value + X, "dddd")
Next
End If
End Sub

The "dddd" argument in the two Format statements makes the function return
the fully spelled out day name; if you wanted the abbreviated day name, then
just change the "dddd" to "ddd".

--
Rick (MVP - Excel)


"hlock" wrote in message
...
I've figured out how to add a calendar control to my excel 2007
spreadsheet.
For example, when I click in cell F8, the calendar appears, I click on a
November 11, the date of 11/11/08 gets entered into cell F8, and the
calendar
disappears. It works great. However, what I would like to be able to set
up
is when the person clicks on November 11, the date of November gets
entered
into cell F8 AND the corresponding weekday (in this case, Tuesday) gets
automatically entered into the cell above, F7.

The calendar control is set up for a range of cells: F8:L8. I would want
the weekdays set up to be entered into the range of cells: F7:L8. Is
this
possible? Thanks.