Ayuda con Macro de ejecución automática en varias celdas

Buen dia!

Tengo el siguiente código:
Private Sub Worksheet_Calculate()
uno_lunes Range("A1")
End Sub

MSG RVBT lunes1''Private Sub uno_lunes(ByVal Target As Excel.Range)
If Target.Address = Range("A1").Address Then
Select Case Target.Value
Case 1
MsgBox "Cargado con éxito"
Case 2
MsgBox "Verifique los valores"' End Select
End If
End Sub

Con el consigo que cuando el valor de A1 es 1 me da un MSG y si es 2 genera otro.
La pregunta es...¿Cómo hacer para aplicarlo a más de 2 celdas (sin límite
de celdas), en una misma hoja y a varias hojas en el mismo libro?

Gracias