Interesting that you should suggest that Gord,

If Intersect(Range("A:IV"), Target) Is Nothing

where else could it be?

--
Regards,

Sandy
In Perth, the ancient capital of Scotland
and the crowning place of kings


Replace @mailinator.com with @tiscali.co.uk


"Gord Dibben" <gorddibbATshawDOTca wrote in message
...
Try this.

Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("A:IV"), Target) Is Nothing Then
Exit Sub
End If
ActiveSheet.Protect Contents:=False
Target.Locked = True
ActiveSheet.Protect Contents:=True
End Sub


Gord Dibben MS Excel MVP