Dim oldvalue
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Intersect(Target, Range("B2")) Is Nothing Then Exit Sub
oldvalue = Target
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
If Intersect(Range("B2"), Target) Is Nothing Then Exit Sub
If oldvalue <> Target And oldvalue <> VbEmptyValue Then
MsgBox ("Cannot change this value")
Target = oldvalue
End If
End Sub
DON'T MISS
i receive this errors(attached pictures) please help me