Hi,
See this sheet attached. In Sheet1, Column 1 enter your list of characters to change from row 2 onwards. In Sheet1, Column2 enter your list of characters to change to from row 2 onwards. Then run the macro with ctrl>shift>r.
Note there is a dependence on the sheet names, so be careful to change the code if you change these names. For reference the code is:
Sub ReplaceErr()
'
' ReplaceErr Macro
' Macro written 18/06/2010 by Martin Shimell
Count = 1
Do While Count <= Range("List_count").Value
LookupVal = Cells(Count + 1, 1).Value
ReplaceVal = Cells(Count + 1, 2).Value
Worksheets("Sheet2").Select
Cells.Replace What:=LookupVal, Replacement:=ReplaceVal, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Worksheets("Sheet1").Select
Worksheets("Sheet3").Select
Cells.Replace What:=LookupVal, Replacement:=ReplaceVal, LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Count = Count + 1
Worksheets("Sheet1").Select
Loop
End Sub
Bookmarks