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

"Aaron" wrote in message
...
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