我将用一个例子来进一步解释我的评论。
首先您使用的是private function，没有任何输入。.. function将不作用于细胞;它只输出一个值。您希望使用Subroutine对单元格执行操作。
第二点：在当前代码中，您检查每个单元格，并且在您检查If cell.Value = myDate Then的每个场景中，您都踢出了msgbox。如果你有一个很长的约会清单，那就太多了。您可以通过添加检查值并在整个循环都被检查后才执行msgbox来解决这个问题。
或者，你根本不能做一个循环，而使用Application.Match()，这样（未测试）：

Sub DateChecked()
    dim inquiryDate as date:  inquiryDate = ActiveCell.Value
    dim ws as worksheet:  set ws = ThisWorkbook.Sheets("History")
    dim dateRange as range:  set dateRange = ws.Range("CA1:CC1")
    if IsError(Application.Match(inquiryDate, dateRange, 0))=True then
        'Do something when you have no match
    end if
End Sub

这是我的问题的完整答案代码，供将来参考。

Sub HistoryUpdate()

DateUpdateWithCheck

End Sub

Private Function DateUpdateWithCheck()

Dim ws As Worksheet
Dim wb As Workbook

Dim myDate As Date
Dim searchrange As Range
Dim cell As Range
Dim lRow As Long

myDate = Date

Set ws = ThisWorkbook.Worksheets("History")
ws.Activate

Set searchrange = ws.Range(Cells(1, "C"), Cells(1, "C").End(xlToRight))

If IsError(Application.Match(CDbl(myDate), searchrange, 0)) = True Then

With ws
    lRow = Range("C1").End(xlToRight).Offset(0, 1).Select
    
    ActiveCell.Value = Date
    ActiveCell.EntireColumn.Copy
    ActiveCell.EntireColumn.PasteSpecial xlPasteValues

    
End With

End If

End Function