Bobmc -
Try something like:
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Address = "$A$1" And
Target.Formula<> "" Then [A2,A3].ClearContents
If Target.Address = "$A$2" And Target.Formula<> "" Then [A1,A3].ClearContents
If Target.Address = "$A$3" And Target.Formula<> "" Then [A1,A2].ClearContents
End Sub
Right-click your worksheet tab, select "View Code" and put the code there.
Tom
This message was edited by Tom Morales on 2002-03-14 12:05