VBA: FIND AND REPLACE
Posted on 2013-02-06
I would like to do a find and replace on my column A and replace rows D to F with the the value in column A. Rows D to F have a formula which references another excel sheet and I need to update the formula with the reference from Column A.
Here is the code I have so far..
Dim Replacement As String
Dim RowNum As Integer
RowNum = 2
Replacement = ActiveCell.Value
Range("D" & RowNum & ":F" & RowNum).Select
Selection.Replace What:=Range, Replacement:=Replacement, LookAt:=xlPart, _
RowNum = RowNum + 1
Range("A" & RowNum).Select
Loop Until ActiveCell.Value = ""