robertonl,

Veja se esse arquivo pode lhe ajudar.

Segue o arquivo em anexo.
Preciso que todas as etiquetas somente estas informações que estão relacionadas abaixo fiquem em negrito
NOME QUIMICO:
DATA DE RECEBIMENTO:
LOTE MP:
FORNECEDOR:
LOTE FORNECEDOR
Nº CQ:
FAB.:
VAL.:

Bom dia!

Já tentou Gravar uma Macro?

Sub ale_Exemplo()
    Range("B1:D1").Font.Bold = True
End Sub

Att

 Sheets("resumo").Range("A1") = "NOME QUIMICO:" & Codigo
'utilize o comando abaixo e faça um Loop  no intervalo A1:A8
With Sheets("resumo").Range("A1")
  .Font.FontStyle = "Regular"
  .Characters(1, InStr(.Value, ":")).Font.Bold = True
 End With

Deu certo, porem as etiquetas não esta saindo a informação em negrito

O trecho de código que coloquei no post anterior faz a formatação em negrito dos dados na planilha Resumo e é dessa planilha que deve ser copiada a etiqueta a ser colada na planilha COD BARRAS, assim será mantida a formatação.

Ele cola mas não esta colando em negrito, tentei colocar a configuração na guia mas não deu certo

No arquivo que você disponibilizou já existe uma etiqueta formatada com negrito em A1:A8 da planilha Resumo.

Faça um teste assim: copie manualmente aquela etiqueta já formatada e cole manualmente em A1 da planilha COD BARRAS ~~~> Colar especial / Colar como imagem.

Fazendo dessa forma toda a formatação original é mantida. Ao menos aqui esse é o resultado.

Essa operação é que deve ser reproduzida pelo seu código, conforme eu sugeri antes.