Macro Excel che agisce solo su celle con determinate sillabe

[marco]

Ciao a tutti.
In un foglio Excel contenente un elenco di nomi di città in colonna A, faccio una semplice selezione (per esempio A100:A200 ma devo usare riferimenti relativi) e devo fare in modo che alle celle di questa selezione che contengono alcune sillabe (per esempio “reg” e “par”) , gli venga scritto un “NO” nella riga corrispondente ma in colonna B; le celle che invece non contengono quelle sillabe devono restare invariate.
Con le formule sarebbe semplice, ma non posso usarle e devo fare in modo che la macro non vada ad intaccare le celle che vengono prima o dopo la selezione.
Qualcuno può aiutarmi a creare questa macro?
Grazie

[marco]

Ed ecco la soluzione semplice ma efficace proposta dal buon Mauro Gamberini, Microsoft MVP - Excel:

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