Hi teresa

Try this event in the sheet module

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Application.Intersect(Range("D1:G16"), Target) Is Nothing Then
Range("C1").Select
End If
End Sub


--
Regards Ron de Bruin
http://www.rondebruin.nl



"teresa" wrote in message ...
I have a range of cells D1:G16 with formulae in them, I want to ensure that
the user cant select these cells, how can I do this without any sort of
Password Protection.
I guess its a Private Sub Worksheet_Open()
If Target.Range = (D1:G16)...
....
...
...

Thanks