SILVIOFELINTO,

Boa Tarde!

Veja se é assim.

pq não usa fórmulas ? Há uma razão pra ser macros?

=se(A1="M";"Ao senhor";se(A1="F";"À senhora";""))

E arrasta!

FF

Muito obrigado Wagner!

É isso mesmo.
Só uma pergunta. Como faço para colocar esta macro em um módulo.
É só copiar e retirar o "Private"?

Silvio Felinto

Silvio, se tem q ser VBA, eu adaptei e melhorei o código do Wagner conforme abaixo:

Option Explicit

Private Sub Worksheet_Change(ByVal Target As Range)
    
    Application.EnableEvents = False
    
    With Target.Cells(1)
        If .Column = 1 And .Row > 1 Then
            If VBA.UCase(.Value) = "M" Then
                Range("B" & .Row).Value = "Ao Senhor"
            ElseIf VBA.UCase(.Value) = "F" Then
                Range("B" & .Row).Value = "À Senhora"
            End If
        End If
    End With
    
    Application.EnableEvents = True
    
End Sub

Motivo... Se vc digitar em diversas células e usar o Ctrl+Enter para finalizar, o código dele vai dar erro.

1- Para usar, copie o código acima, e abra o VBA (Alt+F11)
2- No explorador de projeto (Ctrl+R) procure e Encontre a planilha onde vc quer esse comportamento
3- cole o código ali, sem mudar nada, nem o public/private
4- volta no excel e teste