Clicar com o botão direito sobre o nome da guia / Exibir código.
Colar(ou escrever) o código adaptado ao seu arquivo.
Exemplo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address <> Range("C10").Address Then
Exit Sub
ElseIf Target.Value = "NOME1" Then
Call Macro_Nome1
ElseIf Target.Value = "NOME2" Then
Call Macro_Nome2
End If
End Sub
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 25/02/2017 2:55 pm