Mesage box works, I also need the jobs name that's in another cell

[0 Agios]

this what i am trying to do. Mesage box works, I also need the jobs name that's in another cell


Private Sub CommandButton46_Click()


Dim cell As Range
For Each cell In Range("V7:V1539")
If cell.Value > Date Then
MsgBox "Reminder Date Is " & cell.Value & " For job " & cell.Value.Offset(RowOffset:=0, ColumnOffset:=0)
End If
Next




End Sub

 

[Fluff]

I also need the jobs name that's in another cell

Which cell?

 

[0 Agios]

Hi Fluff
Range ("V7:V1539") has the date value and range ("E7:E1539") has the jobs name. The code searches and gives me the correct date in the Message box. I would like to have the message box showing the date and jobs name

 

[Fluff]

In that case try

MsgBox "Reminder Date Is " & cell.Value & " For job " & cell.Offset( , -17).Value

 

[0 Agios]

Fluff it worked, perfect you are a genius thanks

 

[Fluff]

You're welcome & thanks for the feedback.