Executar macro conforme o valor de celula - JJoão (08/2002)

Dúvida colocada: ".. é possivel executar uma macro conforme o conteudo de uma celula ?.."

Solução: Macro para interceptar um resultado e chamar uma outra macro especifica
A 1ª deve ser colocada no código da folha que se pretende interceptar o conteudo das células, as macros de teste podem estar no mesmo ou num modulo, desde que no mesmo Livro (Workbook).

Private Sub Worksheet_Change(ByVal Target As Range)
        Application.EnableEvents = False
        If Not Intersect(Target, Range("A1:A100")) Is Nothing Then
           Select Case Target
             Case 1
               Call macro1
             Case 2
               Call macro2
             Case Else
           End Select
        End If
        Application.EnableEvents = True
End Sub

'Macros de teste
Sub macro1()
    MsgBox "macro1"
End Sub

Sub macro2()
    MsgBox "macro2"
End Sub