I have the macro below which works as intended... but... the code is very long. Is there a way to optimize it, using fewer code lines? Any help is appreciated!
Code:
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Denmark/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="CN=", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=UK/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Denmark/OU=Contr/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Czech Republic/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Ireland/OU=Contr/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/Czech Republic/XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/Poland/XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Poland/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Poland/O=XXX@XXXPL", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=UK/OU=Contr/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Norway/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Worksheets("CBO data").Columns("BS").Replace _
What:="/OU=Sweden/O=XXX", Replacement:="", LookAt:= _
xlPart, SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
End Sub