This code worked for me:

Sub FindToday()
Dim rCell

Range("c3:bo3").Select
For Each rCell In Selection
If rCell.Value = Date Then Range(rCell.Address).Offset(1, 0).Formula
= "=HMLoc"
Next rCell

End Sub