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!