Excel VBA - como faço para chamar uma macro com uma condição de determinada célula

[Manuel Borreicho]

<>Como faço em VBA para chamar uma macro quando uma determinada célula é alterada com o texto "SIM", essa macro vai pegar numa sheet e criar um novo ficheiro em excel, como faço também para anexar esse ficheiro a um mail já existente, criado previamente com outros ficheiros em PDF anexados. 

Em resumo, eu tenho um ficheiro em excel quando do registo de vários campos, corro uma macro em que vai exportar duas sheet´s em PDF e enviá-las por mail, depois queria, na folha de registo, quando uma determinada célula eu selecionasse "NÃO", não houvesse alterações e enviasse o mail, quando selecionasse o "SIM" exportava outra sheet em excel (ou chamava uma macro para esse efeito) e a anexasse ao mail que continha os ficheiros em PDF e enviasse. 

A Sheet excel a anexar  ao email com a condição do SIM é a WO

 

Sub Macro2()
'
' Macro2 Macro
'
    Sheets("Registo").Select
    Sheets("Lista").Select
    Sheets("Folha Fluxo").Select
    ActiveSheet.Unprotect
    
    Sheets("Registo").Select
    Range("B20:I20").Select
    Selection.Copy
    Sheets("Lista").Select
    Range("B6").Select
    
    
    If Range("B7").Value <> "" Then
    Selection.End(xlDown).Select
    End If
    
    ActiveCell.Offset(1, 0).Select
        
    
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("C1").Select
    
    Sheets("Registo").Select
    Range("B20").Select
    Selection.Copy
    Sheets("Folha Fluxo").Select
    Range("C2").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Registo").Select
    Range("C20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Folha Fluxo").Select
    Range("C4:D4").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Registo").Select
    Range("G20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Folha Fluxo").Select
    Range("C3:F3").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Registo").Select
    Range("D20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Folha Fluxo").Select
    Range("C5:D5").Select
    Selection.PasteSpecial Paste:=xlPasteFormulas, Operation:=xlNone, _
        SkipBlanks:=False, Transpose:=False
    Sheets("Registo").Select
    Range("I20").Select
    Application.CutCopyMode = False
    Selection.Copy
    Sheets("Folha Fluxo").Select
    Range("H3:I3").Select
    ActiveSheet.Paste
    Range("J1").Select
    Sheets("Registo").Select
    Range("A1").Select
    
    Call Email
      
    Range("B20:H20").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    
    Sheets("Registo").Select
    Sheets("Lista").Select
    ActiveSheet.Protect Password:=""
    
    Sheets("Registo").Select
    Range("B20").Select
    ActiveWorkbook.Save
End Sub

 

Muito obrigado