Hello,

Needing code that looks at a Column B on Tab "123" and if there are any
dates < todays date then change to todays date.

Thanks,
Aaron

Sub fixdate()
For Each c In Range("b2:b22")
If IsDate(c) And c < Date Then c.Value = Date
Next
End Sub

--
Don Guillett
SalesAid Software
(E-Mail Removed)
"Aaron" <(E-Mail Removed)> wrote in message
news:C086EFE4-A5C9-4271-9113-(E-Mail Removed)...
> Hello,
>
> Needing code that looks at a Column B on Tab "123" and if there are any
> dates < todays date then change to todays date.
>
> Thanks,
> Aaron