The following method will check for valid rows. In my example, the data
is organized as this:

[date] [value] <-- column A holds the dates, column B holds the data

Example:

2006-10-11 (column A)
values (column B)

The method will NOT email the results. Just hit Google with "Excel vba
send mail" and you will have plenty of examples. Your problem with
finding the correct cells can be solved in numerous ways, here it one
I've succesfully tested.


Sub FetchTodaysRows()

Dim ws As Worksheet
Dim rngData As Range
Dim c As Range
Dim strOut As String

'worksheet containing data
Set ws = Worksheets("mydata")

'the range where the data is
Set rngData = ws.Range("A1:A10")

For Each c In rngData

If c.Value = Date Then
strOut = strOut & c.Value & " " & c.Offset(0, 1).Value &
Chr(10)
End If

Next c

Debug.Print strOut

End Sub

Please note:

..Offset(0,1).Value <-- gives the value of column b
Chr(10) <-- add a line feed

-Fredrik