One message box in a for loop

[Tinbendr]

[vba]Sub color2_1()
Dim N As Long
Dim Temp$
For N = 1 To 5
If Cells(N, 16).Interior.ColorIndex = 3 Then
Temp$ = Temp$ & N & vbCr
End If
Next N

MsgBox "Rows" & vbCr & Temp$ & "Don't have codes."

End Sub
[/vba]

You really should have added this to the original question.