Check if date exists in entire Date column of Table4

[JohnZ1156]

I have a vba script to check if a specific date exists in the current active cell, I would like it to check if an inputted date exists anywhere in the column.
I guess I'm looking for the "With Range(ActiveCell.Address)" to be the entire Date colmun in my Table4 table.

    Dim var As Date

'Enter Date
    var = InputBox("Please enter the Date.", "Date", Default, XPos:=2880, YPos:=5760)
    Worksheets("Sheet1").Select
    Range("B15").Value = var

    Range("A11").End(xlDown).Select

[B]    With Range(ActiveCell.Address)[/B]
        If Not IsDate(.Value) Then
        MsgBox "No date"
        ActiveCell.Offset(1, 0).Select

        ElseIf .Value = var Then
        MsgBox ("Data entered " & var & " already exists.")

        ActiveCell.Offset(1, 0).Select
        Worksheets("Sheet2").Select
    Else

 

[Tetra201]

See if the following code fragment works for you:

Dim rng As Range
Set rng = ActiveSheet.ListObjects("Table4").ListColumns("Date").Range. _
    Find(var, , xlValues, xlWhole, xlByRows, xlNext, False, False)
If rng Is Nothing Then
    MsgBox "No date"
Else
    MsgBox "Data entered " & var & " already exists."
End If