Ed ecco la soluzione semplice ma efficace proposta dal buon Mauro Gamberini, Microsoft MVP - Excel:
codice:
Public Sub m()
Dim c As Range
For Each c In Selection
If InStr(LCase(c.Value), "par") Or _
InStr(LCase(c.Value), "reg") Then
c.Offset(0, 1).Value = "NO"
End If
Next
Set c = Nothing
End Sub
Superfluo dire che funziona benissimo.
Grazie e alla prossima