Excel - Como alterar o código para a pasta de trabalho e não a planilha

Question

Eu tenho o seguinte código:

Private Sub Worksheet_Change(ByVal Target As Range)
    Set KeyCells = Range("C9")
    Set isect = Application.Intersect(KeyCells, Range(Target.Address))
    If Not isect Is Nothing Then
        Application.EnableEvents = False
        isect.Value = isect.Value - 40
        Application.EnableEvents = True
    End If
End Sub

o que eu quero fazer é tornar universal, ou seja, trabalhar para todas as planilhas e não apenas uma. Como fazer isso?

    

Answer 1

Mova o código para a página ThisWorkbook

ealtereoeventoparaoeventoWorkbook_SheetChange.

PrivateSubWorkbook_SheetChange(ByValShAsObject,ByValTargetAsRange)SetKeyCells=Range("C9")
    Set isect = Application.Intersect(KeyCells, Range(Target.Address))
    If Not isect Is Nothing Then
        Application.EnableEvents = False
        isect.Value = isect.Value - 40
        Application.EnableEvents = True
    End If
End Sub