Why Doesn't My If Function Print An "X"

My function is Finding the inputted last name on another sheet then looking up the date at the top of the column and comparing it too the current date, However I can't get the current cell to = "X" when they do equal.

Private Sub ReturningRush_Click()
Dim Value7 As String
Dim strCheck As Range
Value7 = InputBox(prompt:="Enter LAST Name")
With Sheets("Attendance")
Set strCheck = .Range("B6:B200").Find(what:=Value7, LookIn:=xlValues, Lookat:=xlWhole, _SearchOrder:=xlByRows,
SearchDirection:=xlNext, MatchCase:=False)
If Not strCheck Is Nothing Then
Application.Goto strCheck
ActiveCell.Offset(0, 2).Select