Filter Today's Date with VBA -So tricky

[jevi]

Sub Ufa()
    x = CLng(Date)
    ActiveSheet.UsedRange.AutoFilter Field:=9, Criteria1:=">=" & x, Operator:=xlAnd, Criteria2:="<" & x + 1
End Sub

I have this macro to filter today's date is working great but is not giving me the header only the date without header...I don't know what to do .

Help help.

 

[Fluff]

Is your header row in row 1?

 

[jevi]

no it is in row9, thank you

 

[Fluff]

In that case rather than using Used range try specifiying the range eg
Range("A9:G100")

 

[jevi]

Sub Ufa()    Dim LastRrow As Long
    LastRrow = Attuale.Range("A" & Rows.Count).End(xlUp).Row


x = CLng(Date)
    ActiveSheet.Range("A9:J" & LastRrow).AutoFilter Field:=9, Criteria1:=">=" & x, Operator:=xlAnd, Criteria2:="<" & x + 1
End Sub

Pluff thank you so much really you just lighted my head...I was tired and not working out trying even record a macro was not really working this filter date. Instead of a range I used the last row which workd great for me.

I tried it and works perfectly.....thank youuuuuuuuuuuuu Pluff you are just GREAT

 

[Fluff]

Glad to help & thanks for the feedback