Trindade, poderia explicar e detalhar melhor, ou ate colocar um exemplo, pois achei confuso :

Na célula vai ter o seguinte valor: Série iniciando em Janeiro
Gostaria de deixar assim: Série iniciando em Janeiro

Bom dia, Mauro Coutinho

Eu terei alguns Checkbox com os respetivos nomes dos meses (Jan, Fev, Mar ... Dez)
Quando selecionar um deles será escrito na Range("A1") a seguinte frase companhado do Mês: Série iniciada em & seguido do Checkbox referente ao mês.

Ex.:
Tendo como base eu ter selecionado o CheckboxJan será escrito na Range("A1"), Série iniciada em Janeiro.
Conforme for selecionando outro Checkbox ira trocando somente o mês.

Quando escrever na Range("A1") gostaria de o texto: Série iniciada em ficasse azul e o mês em vermelho.
Série iniciada em Janeiro

Espero ter passado o que estou tentando fazer.

Trindade, melhorou um pouco, se tivesse escrito já no primeiro post evitaria ter de ficar perguntando, e este é um dos motivos que varios tópicos ficam sem resposta, não colocam titulo adequado e não detalham o que querem, ficando a suposições, então os tópicos acabam sendo abandonados, nem sempre temos tempo de ficar perguntando.

Troquei seu Titulo por outro que achei mais adequado a sua necessidade, e como ainda necessitaria de mais algumas informações, vou por SUPOSIÇÃO que o Checkbox está na planilha e não em um formulário e é do tipo ActiveX.

Se for isto, veja se a rotina abaixo atende, ressaltando que tambem estou supondo que o texto inicial será sempre o mesmo "Série iniciada em", então deixei fixa a qde de caracteres, se for mudar tem de ajustar na rotina ou tambem pode estar utilizando outras instruções para contar os caracteres e jogar em umas Variáveis.:

Private Sub CheckBox1_Click()
    Dim sMes
    
    If CheckBox1 = True Then
        
        sMes = CheckBox1.Caption
        
        With Range("A1")
            .Value = "Série iniciada em " & sMes 'Insere o Valor em A1
            .Characters(Start:=1, Length:=18).Font.Color = -4165632 'Formata cor Azul
            .Characters(Start:=18, Length:=25).Font.Color = -16776961 'Formata Cor Vermelho
        End With
    Else
       
    End If
    
End Sub

[]s

Mauro Coutinho,

Mais uma vez muito obrigado, era exatamente o que procurava.
Peço desculpas por não ter detalho melhor minha duvida no primeiro post.