Jim O,

You might be able to get close with the following
code entered into the worksheet module.
There are always ways around code like this, but it could help...
'----------------------
Private Sub Worksheet_Change(ByVal Target As Range)
On Error GoTo ErrorHandler
Application.EnableEvents = False
'Change range address to the appropriate cells.
If Not Application.Intersect(Target(1), Me.Range("B5:D10")) Is Nothing Then
If Asc(Target(1).Formula) = 61 Then Target(1).Formula = "No formulas here" 'or vbNullString
End If
ErrorHandler:
Application.EnableEvents = True
End Sub
'------------------------

Jim Cone
San Francisco, USA


"Jim O"
wrote in message
...
Chip
Is there a way to prevent the active cell from being a formula? Data entry
only?--
Jim O