Os códigos sempre vão estar em vermelho no meio das palavras ou você destacou apenas para exemplo? É preciso sempre ter um padrão pra identificar os códigos no meio disso (cor, tamanho, caracteres, etc), sem padrão a macro não consegue identificar.

Boa noite, @palmanhani

Teste a seguinte UDF:

Function ExtraiCodeParts(txt As String) As String
  Application.Volatile
  With CreateObject("VBScript.RegExp")
    .Pattern = "\b((?:[A-Z0-9]+)-(?:[A-Z0-9]+)(?:-[A-Z0-9]+)?)\b"
    If .Test(txt) Then ExtraiCodeParts = .Execute(txt)(0).SubMatches(0)
  End With
End Function

Na célula B1 use como se fosse uma fórmula normal do Excel e arraste:

=ExtraiCodeParts(A1)

@raygsson  Desculpe responder tarde.  Esse 'e o grande problema, nao existe um padrao. A pessoa que criou a base da dados nao seguiu nenhum padrao. As vezes esta no inicio da descricao, as vezes no meio, outra vezes entre (), e isso complica muito porque eu tenho mas the 6000 item que preciso achar uma solucao de separar isso. 

Respondendo sua pergunda, eu que estaquei.

@edsonbr   Perfito isso.... muito obrigado