Bom dia!!

O código tem que ser inserido dentro de um módulo de planilha.
http://www.ambienteoffice.com.br/office ... os_em_vba/

Att

Bom dia Alexandre!

Eu fiz isso mas não deu certo.
Escolhi no módulo da Planilha o Worksheet e depois selecionei o Change no ambiente VBA.

Silvio Flinto

Na primeira linha do código (H10) falta um sinal de igual.
A função large requer que indique qual o retorno, primeiro ou segundo ou terceiro...
Experimente assim:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$D$2" Then
    Range("H10").Value = Left(Range("D2").Value, 4)
    Range("I10").Value = Application.WorksheetFunction.Large(Range("M2:M20"), 1)
End If
End Sub

Grande Reinaldo!

Deu tudo certo.
Realmente deixei de digitar o sinal de = na primeira linha.

Muito obrigado pela resposta.

Silvio Felinto.