hi guys

is used a code from the following post:

http://groups.google.com/group/micro...7 8d621af00bb

modified it, and i got this

Sub daterange(Optional eta As Date)


today = DateSerial(2007, 1, 1)
For Each cell In Range("H8:H10")
If cell.Value < "" Then
If cell.Value = today Then
sStr = sStr & cell.Offset(0, -6).Value & vbNewLine
End If
End If
Next
If sStr < "" Then
MsgBox sStr
End If
End Sub

not en expert and dont know how to establish and make today = "todays
date"

how do i establish that ?