
Private Sub Worksheet_Change(ByVal Target As Range)
With Target(1, 1)
If (InStr(.Value, "+") + InStr(.Value, "-") + _
InStr(.Value, "/") + InStr(.Value, "*")) > 0 Then
Application.EnableEvents = False
.Formula = "=" & .Formula
Application.EnableEvents = True
End If
End With
End Sub
|
