David wrote

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().


Yipee!!

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).Column - 1)
.Value = Chr(252): .Font.Name = "Wingdings"
End With
Set srcaddress = Selection.Offset(0, Rows(2).Find(Date).Column - 1)
srcaddress.Copy Destination:=Sheets(3).Range(srcaddress.Address)
End Sub

--
David