small error in vb code (autofilter/print) - guru needed

[fenster]

could any of u guru's please have a look at this code and tell me whats wrong..

the command button is on sheet 3 where cells D4 and G4 have from / to dates. i.e d4 = 01/03/03 g4 = 31/03/03


sheet one is called voucher -column 1 is a date column.

the code should goto sheet 1,highlight column1 filter it and print.


Private Sub CommandButton1_Click()

Dim StartDate As Date
Dim EndDate As Date

Range("D4").Value = "startdate"
Range("G4").Value = "enddate"

Sheets("Voucher").Select
Columns("A:A").Select
Range("A7:A2100").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:=">=startdate", Operator:=xlAnd _
, Criteria2:="<=enddate"
Selection.PrintOut Copies:=1, Collate:=True

End Sub

 

[fenster]

fixed the d4 , g4 values by forcing sheet4

StartDate = Format(Sheet4.Cells.Range("D4").Value, "dd/mm/yyyy")
EndDate = Format(Sheet4.Cells.Range("G4").Value, "dd/mm/yyyy")

but still the dates are swapping on me - tried regional settings but all set to europe with correct date format - ill keep looking!