Hola a todos
 
Intento verificar un valor como abajo se indica, pero no solo seria para la celda A1 sino toda la columna, como le debo hacer para que cada vez que ingrese un dato mayor a  10 en toda la columna  A me muestre el mensaje   
Código:
 Private Sub Worksheet_Change(ByVal Target As Range)
If Target = Range("A1") Then
    If UCase(Target.Value) > "10" Then
MsgBox "Debes poner un valor en B1"
    End If
End If
End Sub
  intente con  If Target = Range("
A1:A40") Then,  y no me funciona.. 
de antemano gracias