Great, there isn't a reply yet. Well folks, i solved my ow
problem...and here's how it's done:

For Each wks In Workbooks(Format(Date, "mmmm") & ".xls").Worksheets
For Each r In wks.Range("H1:H275")
If r.Value = Date And r.Offset(0, -4) = "PICK UP" Then
PU = PU + 1
End If
Next
Nex

--
Message posted from http://www.ExcelForum.com