Restringir sumas en una misma celda.

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]