VBA is not filtering date column based on cell valur from different sheet

[amitkumarsharma]

1- '.AutoFilter Field:=108, Criteria1:="<" & WS1.Parent.Sheets("Sheet1").Cells(7, 5).Text, Operator:=xlAnd
2- '.AutoFilter Field:=108, Criteria1:="<" & Format(WS1.Parent.Sheets("Sheet1").Cells(7, 5), "dd-mm-yyyy"), Operator:=xlAnd
3- '.AutoFilter Field:=108, Criteria1:="<" & Format(WS1.Parent.Sheets("Sheet1").Cells(7, 5).Value, "dd-mm-yyyy"), Operator:=xlAnd
4- '.AutoFilter Field:=108, Criteria1:="<" & CStr(WS1.Parent.Sheets("Sheet1").Cells(7, 5).Value), Operator:=xlAnd
5- .AutoFilter Field:=108, Criteria1:="<" & CStr(WS1.Parent.Sheets("Sheet1").Cells(7, 5).Text), Operator:=xlAnd

I tried above five method but nothing is working,
I am filtering field 108 and date I am taking from different workbook's Cell (7,5)
filter is getting applied and I can see the value also, but I am not getting correct filtered rows, all I am able to see only header nothing else, no any other visible row.

 

[amitkumarsharma]

This worked for me
This Worked
SelDate = Format(WS1.Parent.Sheets("Sheet1").Cells(7, 5).Value, "dd-mm-yyyy")
.AutoFilter Field:=108, Criteria1:="<" & CDbl(SelDate), Operator:=xlAnd