hi guys,

i have the following

Sub daterange(Optional today As Date)

today = Date

For Each cell In Worksheet("updated calls").Range("H:H")
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, , "message here"
End If
End Sub


Im trying to assign the macro to a button, but the nacro doesnt appear
in the macro list.

Any thoughts? thnx