Private Sub UserForm_Initialize()
Dim intDay As Integer
For intDay = 1 To 7
cboTag.AddItem Format(Day(Date) + intDay + 0, "dddd")
Next intDay
cboTag.ListIndex = 0
End Sub
Private Sub cboTag_Change()
ActiveCell.Value = cboTag.Value
End Sub