search column and display results in msgbox

[mike]

Dear All,

Thank you in advance for any help that is provided.

Following on from some of my previous posts...
I have a sheet that contains names in Column C and Dates in Column N.
I would like to have a macro start on workbook open and search for today - 2
days in column N and then look at all cells in Column C which correspond to
the value.
I would then like to view these results in a msgbox.

Cheers,

mike

 

[JLGWhiz]

This might do it.

Private Sub Workbook_Open()
Dim c As Range
lr = Cells(Rows.Count, "N").End(xlUp).Row
sDate = CDate(Format(Now - 2, "m/d/yy"))
For Each c In Sheets(1).Range("N2:N" & lr)
If c.Value = sDate Then
MsgBox "Value in Column C for " & sDate & " is " & _
Range("C" & c.Row).Value
End If
Next
End Sub