Como usar o Worksheet Calculate para auto executar uma macro em várias células

[DRezende]

Pessoal, boa tarde!

Estou elaborando uma planilha para enviar emails automáticos quando determinadas células com fórmulas forem alteradas.

Consegui um código na internet baseado no Worksheet Calculate, porém, ele está considerando apenas a célula AB6. Gostaria que considerasse mais de uma célula, por exemplo, AB6 à AD6.

Parece ser algo simples de resolver. Visto que comecei a aprender à pouco tempo sobre o VBA, ainda não consegui resolver. Segue abaixo o código que estou utilizando. 

Private Sub Worksheet_Calculate()
Static OldVal1 As Variant
If Range("AB6").value <> OldVal1 Then
    OldVal1 = Range("AB6").value
    Call EnviarEmail

End If
End Sub

 

Alterei o If Range para ("AB6:AD6") , porém, o excel acusa o erro seguinte: "Erro em tempo de execução 13: Tipos Incompatíveis".

 

Desde já, agradeço a ajuda!