View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
JLGWhiz JLGWhiz is offline
external usenet poster
 
Posts: 3,986
Default search column and display results in msgbox

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

"mike" wrote:

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