Get range of values in Msgbox if criteria is met

[sharky12345]

I'm trying to find to get a series of values in a MsgBox if criteria is met.

If the value in Column F is 'Overdue' I need values from the same row populated in a Msgbox then a newline and then the next row of data that matches the criteria, so I would end up with 1 message with the values from every row that matches my criteria.

The problem I'm having is that the MsgBox only displays the first found range. This is what I have so far;

If cell.Offset(0, 5).Value = "Overdue" Then
OverDueWeeklyText = "Reg: " & cell.Offset(0, 1).Value & vbNewLine & _
"Vehicle: " & cell.Offset(0, 2).Value & vbNewLine & _
"Last recorded check: " & cell.Offset(0, 3).Value & vbNewLine & _
"Days since last check: " & cell.Offset(0, 4).Value
End If
Next
MsgBox "The following vehicles are shown as overdue their weekly checks;" & vbNewLine & vbNewLine & OverDueWeeklyText

Can someone point me in the right direction please?

 

[Fluff]

Try

OverDueWeeklyText = OverDueWeeklyText & vbNewLine & "Reg: " & cell.Offset(0, 1).Value & vbNewLine & _
"Vehicle: " & cell.Offset(0, 2).Value & vbNewLine & _
"Last recorded check: " & cell.Offset(0, 3).Value & vbNewLine & _
"Days since last check: " & cell.Offset(0, 4).Value

 

[sharky12345]

Ahh, got it, thanks Fluff.

 

[Fluff]

Glad to help & thanks for the feedback