Hi, I'm really need help with this. Been trying to achieve this for the last 2 days.
On my first worksheet, I have Values in column A and column B there are also values but they are hyperlinks.
I'm trying to find the cells with the values from A across the rest of my worksheets and and replace them with the values from column B (and still have them hyperlinked when the cells are replaced).
I found some code from another Thread that's close to doing this but I haven't been able to modify it correctly so far to achieve this.
If someone can help me, I would extremely appreciate it.
On my first worksheet, I have Values in column A and column B there are also values but they are hyperlinks.
I'm trying to find the cells with the values from A across the rest of my worksheets and and replace them with the values from column B (and still have them hyperlinked when the cells are replaced).
I found some code from another Thread that's close to doing this but I haven't been able to modify it correctly so far to achieve this.
Find and Replace Multiple values in all worksheets
Hi, Does anybody have any suggestions / alternatives to modify the below code to allow find and replace multiple values on all worksheets? Also, if there is a way to fix replacing range, rather than having to select it each time? Thanks Sub MultiFindNReplaceNew() Dim Rng As Range Dim InputRng...
www.mrexcel.com
VBA Code:
Sub ReplaceInAllShts()
'Average Joe
Dim Cnt As Long
Dim Replc As Variant
Dim Sht As Long
With Sheets(1)
Replc = .Range("A1", .Range("B" & Rows.Count).End(xlUp)).Value
End With
For Sht = 2 To Worksheets.Count
For Cnt = 1 To UBound(Replc)
Sheets(Sht).UsedRange.Replace what:=Replc(Cnt, 1), Replacement:=Replc(Cnt, 2), _
LookAt:=xlWhole, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next Cnt
Next Sht
End Sub
If someone can help me, I would extremely appreciate it.