This code works for empty cells
How can I amend it to work when the cells in column C has a value of "No" for example?
Many thanks
How can I amend it to work when the cells in column C has a value of "No" for example?
Many thanks
Code:
Sub System_Check()
Dim cell As Range, c As Range, cad As String
lr = Cells(Rows.Count, 1).End(xlUp).Row
On Error Resume Next
Set cell = Range("C4:C" & lr).SpecialCells(xlCellTypeBlanks)
On Error GoTo 0
If Not cell Is Nothing Then
For Each c In cell
cad = cad & c.Offset(, -2) & ", "
Next
End If
If cad <> "" Then
MsgBox "Systems Closed : " & Left(cad, Len(cad) - 2)
Else
MsgBox "all checked"
End If
End Sub