Ejecutar macro cuando se encuentre un valor en un rango de celdas

[mvictoriasp]

Yo quiero que para el rango A1 hasta A20 tome el valor 2 entonces se ejecute la macro1 y si toma el valor 3 se ejecute la macro2, y asi sucesivamente.....

Yo he hecho:
Private Sub Worksheet_SheetChange(ByVal Target As Excel.Range)

If Target.Address = "a1" And Target.Value = 2170 Then
MsgBox "Esta cuenta tiene que reclasificarse"
MACRO1
End If
If Target.Address = "a1" And Target.Value = 2170 Then And Target.Value = 5000 Then
MsgBox "Esta cuenta tiene que reclasificarse"
MACRO2
End If
End Sub

Esto funciona cuando es una celda, pero como hacerlo para cuando es el rango A1:A20????