Como colocar esse código dentro do evento calculate ?

Pelo fato da target não funcionar dentro desse evento

Private Sub Worksheet_Calculate()

Application.EnableEvents = False

Dim KeyCells As Range

Set KeyCells = Range("A1:J1000000")
    
If Not Application.Intersect(KeyCells, Range(Target.Address)) _
        Is Nothing Then

----

End if

Application.EnableEvents = True
   
End Sub