Cells.Replace question: How do I replace text in one specific Column?

[Wamhoi]

Dim Lastline As Long
Dim i As Integer
Lastline = Cells(Rows.Count, 1).End(xlUp).Row
For i = 1 To Lastline
 
Cells.Replace _
What:=Sheets("Sheet1").Cells(i, 1), Replacement:=Sheets("Sheet1").Cells(i, 2), _
LookAt:=xlWhole, MatchCase:=False
 
Next
End Sub

As per the following code, how do I replace text in Column C only?

 

[VoG]

Try

Columns("C").Replace _
What:=Sheets("Sheet1").Cells(i, 1), Replacement:=Sheets("Sheet1").Cells(i, 2), _
LookAt:=xlWhole, MatchCase:=False

 

[Wamhoi]

Thanks, that did the Trick!!