Hi again,

Am Sat, 28 Dec 2013 14:08:58 +0100 schrieb Claus Busch:

then try:

or try:

Sub Test()
Dim StartD As Double
Dim EndD As Double

EndD = WorksheetFunction.EoMonth(Date, -1)
StartD = DateSerial(Year(EndD), Month(EndD), 1)

ActiveSheet.Range("D:D").AutoFilter Field:=1, Criteria1:= _
"=" & StartD, Operator:=xlAnd, Criteria2:="<=" & EndD
End Sub


Regards
Claus B.
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2