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????

[Pablus00]

bienvenido al foro,...

la manera en que se me ocurre a mi es con un bucle que valla verificando los valores por celda con offset(-1,0)

Range("A1").select
Do while activecell.value <> empty

agrega tu codigo aca...

activecell.offset(-1,0).select
loop



PD: siempre y cuando el valor de la celda A21 este vacio, saludos