Change Event code
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
|