Find/Replace Loop

[boxsterman]

Hello,

I have this code to find a replace the text (within a formula) in cells on the row between columns E and J, however it does not only replace the data on that row, but all rows within the sheet and doing so incorrectly.

Ideally if I could loop this to review each row (from 3 to 76) and update it individually that would be great.

Sub Replace()

Dim rw As String
Dim x As String

rw = ActiveCell.Row
x = Range("a" & rw).Value

Range("E" & rw & ":J" & rw).Select

ActiveCell.Replace What:="012.xlsm", Replacement:=x & ".xlsm"

End Sub

Thank you,

J.

 

[Fluff]

How about

Sub boxsterman()
   Dim i As Long
   
   For i = 3 To 76
      Range("E" & i).Resize(, 6).Replace "012.xlsm", Range("A" & i).Value & ".xlsm", xlPart, , False, , False, False
   Next i
End Sub

 

[boxsterman]

perfect.. Thank you.

 

[Fluff]

You're welcome & thanks for the feedback.