Hi,

Thanks for your reply, however this seems a bit intricate for what I am looking for. As it will be inexperienced users using this macro.

I think I have found a workaround my problem using the following code, however this is not running well for me

Sub Dates()

Dim DateCell As Date
DateCell = Worksheets("Date").Range("A1")

    Worksheets("Histogram").ListObjects("Table_owssvr_1").Range.AutoFilter Field:=5, _
        Criteria1:="=<DateCell", Operator:=xlAnd
    Worksheets("Histogram").ListObjects("Table_owssvr_1").Range.AutoFilter Field:=6, _
        Criteria1:="=>DateCell", Operator:=xlAnd
        
End Sub
When I run this, weather I enter physical dates, or look at the selected cell, the filters do not return anything, although if I filter manually it does.

No idea what is causing this, I can record the macro, and when recording I get the results I want, but when I run the macro it returns empty.

Any ideas whats causing this?