Does this help? Changes to US, deletes rows, changes back.
Sub BillDoorz()
Dim startdate As Date, enddate As Date
With Application
.Calculation = xlCalculationManual
.ScreenUpdating = False
End With
Columns(2).NumberFormat = "m/d/yyyy"
startdate = #9/15/2015#
enddate = #11/1/2015#
Range("B1:B" & Range("B" & Rows.Count).End(3).row).AutoFilter 1, ">" & startdate, xlAnd, "<" & enddate
Range("B2:B" & Range("B" & Rows.Count).End(3).row).SpecialCells(12).EntireRow.Interior.ColorIndex = 6
ActiveSheet.AutoFilterMode = False
Columns(2).NumberFormat = "dd/mm/yyyy;@"
With Application
.Calculation = xlCalculationAutomatic
.ScreenUpdating = True
End With
End Sub
Probably better ways though.
Bookmarks