Substituir texto em coluna específica


#1

Boa Noite!
Como substituir texto da coluna VBA. Exemplo coluna D (D5:D200)
Tenho um código VBA que estou usando, mas está substituindo em toda planilha.
Segue o código, quem puder ajudar agradeço.

Sub Substituir_Texto()
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
Set xRg = Cells
xFind = Application.InputBox(" TEXTO A SUBSTITUIR", “S P P”)
xRep = Application.InputBox(" SUBSTITUIR POR ESTE", “S P P”)
If xFind = “False” Or xRep = “False” Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub


#2

Consegui mudar de categoria


#3

Consegui desta forma

Sub Substituir_Texto()
Dim xFind As String
Dim xRep As String
Dim xRg As Range
On Error Resume Next
'Area específica
Set xRg = Plan1.Range(“D5:D200”)
'Toda a Planilha
'Set xRg = Cells
xFind = Application.InputBox(" TEXTO A SUBSTITUIR", “S P P”)
xRep = Application.InputBox(" SUBSTITUIR POR ESTE", “S P P”)
If xFind = “False” Or xRep = “False” Then Exit Sub
xRg.Replace xFind, xRep, xlPart, xlByRows, False, False, False, False
End Sub