Sub Replace2()
Dim XX, a
Worksheets(1).Activate
a = Excel.Application.WorksheetFunction.CountA(Range("A:A"))
For j = 2 To Worksheets.Count
With .Worksheets(j).Activate
For i = 1 To a
XX = Worksheets(1).Range("A" & i).Value
Debug.Print XX
Range("Q:Q,P:P").Select
Selection.Replace What:=XX, Replacement:="", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Next
Range("Q:Q,P:P").Select
Selection.Replace What:=";;", Replacement:=";", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False, FormulaVersion:=xlReplaceFormula2
Next
End Sub
