Excel Macro

[reehan]

Hi, how can I select an entire row based on a criteria.
I have data in the range A1 to E10. Column B has dates. If the date in this column is same as todays, the entire row should be selected. Can some one provide me a macro for this.
Thanks.

 

[Venky]

Sub Today_1()
'
' Today_1 Macro
'
'
Selection.AutoFilter
ActiveSheet.Range("$A$1:$E$10").AutoFilter Field:=2, Criteria1:= _
xlFilterToday, Operator:=xlFilterDynamic
Range("A3").Select
Range(Selection, Selection.End(xlDown)).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.Copy
Range("A15").Select
ActiveSheet.Paste
End Sub