Lanzar macro

Hola de nuevo.
En la respuesta que me has facilitado en mi anterior pregunta estoy interesado en la segunda condición, el problema es que no se armar el código: ¿En este caso donde debo colocar la celda en la que se cumple la condición? "A1"
-------
Private Sub Worksheet_Change(ByVal Target As Range)
dim valor
valor = target.value 'el valor de la celda
select case valor
Case is = 1
call macro1
Case is = 2
call macro2
case 3
call macro3
'seguir con los otros valores
End Select
End Sub
Gracias nuevamente.