One message box in a for loop

[Kenneth Hobs]

[VBA]
Sub color2()
Dim N As Long, s As String
s = ""
For N = 1 To 56
If Cells(N, 16).Interior.ColorIndex = 3 Then
s = s & Cells(N, 16).Address & vbLf
End If
Next N
If s = "" Then
MsgBox "P1 to P56 has no interior color red."
Else: MsgBox "Cells with interior color red:" & vbLf & s
End If
End Sub[/VBA]