Howard, you write such hi-maintenance code for this...
Private Sub Worksheet_Change(ByVal Target As Range)
Application.EnableEvents = False
On Error GoTo ErrExit
Select Case Target.Address
Case "$D$48", "$I$48", "$N$48"
Range("$D$49,$I$49,$N$49").ClearContents
Case "$D$49", "$I$49", "$N$49"
Range("D48,I48,N48").ClearContents
End Select
ErrExit:
Application.EnableEvents = True
End Sub
--
Garry
Free usenet access at
http://www.eternal-september.org
Classic
VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.
vb.general.discussion