selecione as células que devem ser alteradas.

Pressione Crlt + L >>> Substituir.

Em "Localizar" digite a letra antiga.
Em "Substituir por" digite a letra nova.

Clique em Substituir tudo.

Bom dia xlarruda,

A ideia é deixar mais automático possível, há alguma forma ou só por esse caminho?

Agradeço a atenção!

Segue:

Sub Substituir()
Dim ul As Long
ul = Plan1.Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To ul
If Left(Plan1.Range("A" & i), 1) = "C" Then
nt = WorksheetFunction.Substitute(Plan1.Range("A" & i).Value, "C", "A")
Plan1.Range("A" & i).Value = nt
End If
Next i
End Sub

Bom dia Xlarruda,

Testado e funcionando.

Muito obrigado!