I have the following macro, but instead of MsgBox I want to color the cell and stop the macro:
Sub verificaCNP()
'
' verificaCNP Macro
'
Dim lr As Long
lr = Range("A" & Rows.Count).End(xlUp).Row
For Each c In Range("G3:G" & lr).Cells
If c.Value <> "" Then
c.Activate...