Macro que al modificar un valor en una celda se ejecute automáticamente
Tengo una Macro que al modificar un valor en un celda se ejecuta automáticamente, el tema es el siguiente yo necesito que me funcione en un conjunto de celdas, por ejemplo de A1 a A20. A su vez la otra Macro a la cual llama tiene que funcionar desde D1 a D20.
Ejemplo:
Al ingresar en numero de cheque en la Celda A1 por ejemplo, automáticamente me busca la fecha y todo lo demás a través de la fórmula BuscarV, y si en el celda D1 me sale HOY se ejecuta la macro Aviso. El tema es quiero que funciones desde A1 hasta A20 y no quiero copiar y pegar 20 veces la macro porque a parte me repite los eventos de esa manera.
A B C D
1 1200 12/9/14 Nacion HOY
2 1201 12/9/14 Nacion HOY
3 1202 12/9/14 Nacion 15 Dias
4 1203 12/9/14 Nacion 30 Dias
Esta es la Macro que tengo:
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$B$1" Then Aviso
End Sub
Sub Aviso
Sheets("Hoja1").Select
If Cells(1, 4) = "Hoy" Then
MsgBox "Hoy ingresa Cheque " , vbExclamation
End If
End Sub