Macros with Date

[Noe]

I try to find the date on a macro but its given me an error can some one
help me please. I just need to find in column E every time is a date 12/28/09
to copy some information and going to the next cell. thank you

Range("e1").Select

'aqui agreagaste el paso de copiar la macro para poder pegar verticalmente

Do While d <> 1

With Application
d = mm / dd / yyyy
Do
If ActiveCell.Value = d Then

ActiveCell.Copy
ActiveCell.Offset(1, -4).Activate
ActiveCell.PasteSpecial
ActiveCell.Offset(0, 4).Activate

If ActiveCell.Value = "BLANK" Then

Else

ActiveCell.Offset(1, 0).Activate

End If

Application.CutCopyMode = False
Call INFORMATIONFOR_EOD2
End If

Loop
End With
Loop
End Sub

[JE McGimpsey]

In article <7F948740-F3AF-4B0E...@microsoft.com>,
Noe <N...@discussions.microsoft.com> wrote:

> I try to find the date on a macro but its given me an error can some one
> help me please. I just need to find in column E every time is a date 12/28/09
> to copy some information and going to the next cell. thank you

It's a little hard for me to tell exactly what you're trying to do, but
perhaps this will help:

Dim rCell As Range
For Each rCell In Range("E1:E" & _
Range("E" & Rows.Count).End(xlUp).Row)
With rCell
If .Value = Date Then _
.Offset(0, -4).Value = .Value
End With
Next rCell