Bom dia Carlos, tente usar o código da seguinte forma: Sub CorrigirNomes()Dim Palavra1 As String, Palavra2 As String, Celula As RangeSheets("CADASTR...

Oi amigo, pelo oq pude notar estava faltando declarar o item como objeto: Dim wshNetwork As Object Após isso não estava localizando também o campo...