This code is not finding the dates in column A of Sheet Events:  Sub CheckEvents()

Dim EventsSheet As Worksheet
Dim LastRow As Long
Dim DateToCheck As Date
Dim i As Long
Dim MatchCount As Integer
Dim Matches As String

Set EventsSheet = ThisWorkbook.Sheets("Events")
LastRow = EventsSheet.Range("A" & Rows.count).End(xlUp).Row
DateToCheck = Date + 7 ' find dates 7 days after the current date

MatchCount = 0

For i = 2 To LastRow
If Int(EventsSheet.Range("A" & i)) = DateValue(DateToCheck) Then
MatchCount = MatchCount + 1
Matches = Matches & vbNewLine & _
"Date: " & EventsSheet.Range("A" & i).Value & vbNewLine & _
"Column B: " & EventsSheet.Range("B" & i).Value & vbNewLine & _
"Column C: " & EventsSheet.Range("C" & i).Value & vbNewLine & _
"Column D: " & EventsSheet.Range("D" & i).Value & vbNewLine
End If
Next i

If MatchCount > 0 Then
MsgBox "Matches found: " & MatchCount & vbNewLine & Matches
Else
MsgBox "No matching dates found."
End If

End Sub