Hi Bob
goot spot :-)

Additional note for the OP: Why don't you lock these cells and protect
the worksheet?


--
Regards
Frank Kabel
Frankfurt, Germany


Bob Phillips wrote:
also change

If ActiveCell.HasFormula Then

to

If Target.HasFormula Then



"Frank Kabel" wrote in message
...
Hi
change the line
If Target.Address = "$A$1" Then

to
If Not Intersect(Range("A1:A10"), Target) Is Nothing Then

--
Regards
Frank Kabel
Frankfurt, Germany


ste mac wrote:
Hi, I got this code from this ng (apologies for not knowing the
programmer) but I would like it to incorporate a range, as it only
does one cell as it is now, such as A1:A10 or A1:F10

thanks for any help you can give

seeya ste

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
If Target.Address = "$A$1" Then
If ActiveCell.HasFormula Then
MsgBox ("Please do not type in this cell, Thankyou..")
Else
End If
End If
End Sub