Right click sheet tabview code insert thisyou may want to restrict the
area??
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula = True Then Target = ""
End Sub
or
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.HasFormula = True Then
MsgBox "No formulas allowed"
Target = ""
End If
End Sub
--
Don Guillett
Microsoft MVP Excel
SalesAid Software
"John" wrote in message
...
Is there a way to restrict cells in excel so that formulas cannot be typed
into them?