On Monday, January 26, 2015 at 4:11:56 PM UTC-8, GS wrote:
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

If my ignorance frustrates you then ignore my posts.

Thanks for the code.

Howard

Absolutely not the case, ..I was merely expressing an observation in
you that reminds me of myself! I apologize if I offended you as it was
not my intent. Because of my typing difficulties (due to having Lou
Gehrig's), I made a mission of developing code brevity so as not to
'spend' time/energy that could be better 'invested'!

I do see the value in your sample in terms of clarity while trying
stuff. I do the same until a project is complete, then I go through and
clean out all the 'under construction' debris I have scattered
everywhere.

FWIW, I don't consider your learning efforts as ignorance, and your
posts don't frustrate me. Your relentless tenacity for learning reminds
me so very much of myself! Please know I'll continue to help you
however I can. Though I definitely will not always be able to help
you.., I will definitely always want to be helpful!!!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion