LES DEJO LA RESPUESTA  DE LO QUE NECESITABA
 
Código:
 Private Sub Worksheet_Change(ByVal Target As Excel.Range)
 
 
If Target.Column = 1 Then
        
    If Mid(UCase(Target.Value), 1, 2) = "51" Then
         MsgBox "Debes poner un valor en columna C"
    End If
      
End If
 
End Sub
  
CADA VEZ QUE YO ESCRIBA UN VALOR DE LOS QUE MENCIONO EN MENSAJE ANTERIOR, QUE ME MANDE UN MENSAJE Y LISTO!!!!
PARA AQUELLOS QUE VISITARON ESTE TEMA..  
***este foro es una chulada y la gente que participa gracias!!!