Thanks Both for your help. The strangest thing, I pasted the code into the version I use at work and the sheet works fine. Only problem is I have 4 sheets for 4 different customers. Much the same but some solumn info different. I tried to use the same code to filter todays deliveries on another sheet and it doesnt work. The delivery date it in column 16 this time so I changed the code but nothing shows once filtered. Any ideas where I am going wrong?

Code:
Sub todaysdels()

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

dDate = Date

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