Restringir sumas en una misma celda.

[DiegoLG]

Hola amigos del foro

Aqui con una consulta.

Como puedo hacer para restringir para que no me haga suma en una misma celda.

Es decir si hago +1+1+1+1+1 o =1+1+1+1 que me diga que este tipo de calculo no esta permitido.

Espero no confundirlos y se los agradesco muchos.

Estve intentando con este código pero no me funcionó

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Const rango = "A1:A10"

Dim celda As Range

For Each celda In Range(rango)

If IsNumeric(celda) = False Then

If celda.Value = "" Then

GoTo continuar

Else:

MsgBox "No es número. Inténtelo de nuevo"

celda.Select

End If

End If

continuar:

Next celda

End Sub[/CODE]