Tom Ogilvy wrote

<snip

Ok, how 'bout this?

Here's the routine I use in both "meal" sheets to put the checkmark in the
desired cell in the first place:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
On Error Resume Next
If Intersect(Target, [a3:a93]) Is Nothing Then Exit Sub
With Selection.Offset(0, Rows(2).Find(Date, LookIn:=xlFormulas).Column - 1)
.Value = Chr(252): .Font.Name = "Wingdings"
End With
End Sub

Is there some code I can add to put the checkmark into the corresponding
cell in the "Attendance" sheet at the same time? That would eliminate the
need for CopyToday().

--
David