Issue with Macro: Run-time Error

[omarahmedfazal]

Hello All,

I have trouble running the following macro (See the attached image).

Sub Translation()

Dim fndList As Variant
Dim rplcList As Variant
Dim x As Long
fndList = Array("Pound Sterling", "Outgoing amount ATM/Dispenser", "Banknote")
rplcList = Array("Libra Esterlina", "Salida dotación ATM", "Billete")
'Loop through each item in Array lists
For x = LBound(fndList) To UBound(fndList)
Target.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=False
Next x

End Sub

Basically, the intention of this code is to find "Pound Sterling", "Outgoing amount ATM/Dispenser", "Banknote" within a particular sheet and replace it with "Libra Esterlina", "Salida dotación ATM", "Billete".

Upon running the code, the following is highlighted and fails to run;

Target.Replace What:=fndList(x), Replacement:=rplcList(x), _
LookAt:=xlPart, SearchOrder:=xlByRows, MatchCase:=False, _
SearchFormat:=False, ReplaceFormat:=FalseThe error message is "run-time error 424 object required".

I have to mention that "Pound Sterling", "Outgoing amount ATM/Dispenser", "Banknote" will always be in columns C:H (Not attached). But, I do not know if it is in this code.

Could you please let me know what I am doing wrong, why I am getting the error, and what I can do to rectify it?

 

[Fluff]

Welcome to the MrExcel Message Board!

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules.

Be sure to follow & read the link at the end of the rule too!

Cross posted at: Issue with Macro: Run-time error
There is no need to repeat the link(s) provided above but if you have posted the question at other places, please provide links to those as well.

If you do cross-post in the future and also provide links, then there shouldn’t be a problem.