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!

  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