Try this small worksheet event mcro:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim v As Variant
Set r = Range("A1:A3")
If Intersect(Target, r) Is Nothing Then Exit Sub
v = Target.Value
Application.EnableEvents = False
r.Clear
Target.Value = v
Application.EnableEvents = True
End Sub

If you enter a value in the range A1 thru A3, the other cells in that range
will be cleared.
--
Gary''s Student - gsnu200747


"T.Lindholm" wrote:

I have three data cells in my table that I need to check for data. If one of
the three cell has data in it, the other two can not be filled with anything,
somekind a pop up should be good too. I hope someone understand what I mean,
and can also help me out.