Olá, pessoal. Beleza?

Então, tô criando um código que irá procurar por determinados valores dentro de uma range e substituí-los por um determinado valor.

For Each Cell In ActiveSheet.Range(Selection.Address)
    If Cell.Value = "PORTO DE SANTOS" Or Cell.Value = "SAO PAULO" or Cell.Value = "AEROPORTO INTERNACIONAL DE VIR" or Cell.Value = "AEROPORTO INTERNACIONAL DE SAO" Then
        Cell.Value = "SP"
End If
    If Cell.Value = "ITAJAI" OR Cell.Value = "PORTO DE SAO FRANCISCO DO SUL" or Cell.Value = "IRF - IMBITUBA" Then
	Cell.Value = "SC"
End If
    If Cell.Value = "ALF - URUGUAIANA" or cell.value = "PORTO DE RIO GRANDE" or cell.value = "CAXIAS DO SUL" Or cell.value = "NOVO HAMBURGO" Then
	Cell.Value = "RS"
    If cell.value = "PORTO DO RIO DE JANEIRO" Then
	Cell.Value = "RJ"
Next Cell
End Sub

Queria saber se é possível eu criar algo mais ou menos assim: se o valor da célula conter a sequencia (podendo ser em qualquer parte da frase, ex: Porto de Santos - SP) "SANTOS", então o novo valor dessa célula será "SP".

Grato,

H.