Do Not AutoFilter If Data Does Not Exist

[xander1981]

Thanks very much Admin. I am running the code exactly as below with today's date in column 'T' but when filtered column 'T' is not shown

Sub todaysdels()

 Dim rngFilter   As Range
Dim dDate       As Date

dDate = Date

Set rngFilter = Range("a2:z" & Range("a" & Rows.Count).End(xlUp).Row)

If Application.WorksheetFunction.CountIf(rngFilter.Columns(20), dDate) Then
     rngFilter.AutoFilter field:=20, Criteria1:=dDate
Else
    MsgBox "No delivery for today!", vbOKOnly
End If
    
End Sub