Pessoal,

Estou com um problema para monitorar as alterações em determinadas células. Ao selecionar uma célula e teclar DEL o Excel limpa a célula sem ocasionar um erro na MACRO, entretanto ao selecionar mais de uma célula e teclar DEL a MACRO da um erro.

Preciso as vezes limpara mais de um célula sem que a MACRO entenda que algo foi alterado neste caso.

Private Sub Worksheet_Change(ByVal Faixa As Range)
'
    Dim monitorar As Range
'
    Set monitorar = Range("A4:D20")
'
' O ERRO OCORRE NA LINHA ABAIXO E MOSTRA ESSA MENSSAGEM: "ERRO EM TEMPO DE EXECUÇÃO 13: TIPOS INCOMPATIVEIS"
    If Faixa.Value = "" Then
        Exit Sub
    Else
        If Not Intersect(Faixa, monitorar) Is Nothing Then
            xCol = Faixa.Column
            If xCol = 1 Then
                MsgBox "Foi alterado a coluna A "
            ElseIf xCol = 2 Then
                    MsgBox "Foi alterado a coluna B "
            ElseIf xCol = 3 Then
                    MsgBox "Foi alterado a coluna C "
            ElseIf xCol = 4 Then
                    MsgBox "Foi alterado a coluna D "
            End If
        End If
    End If
'
End Sub

** Em anexo o arquivo