Worksheet event / Add new cell event change to call new macro

[cidfidou]

Hi Excel Jedis,

I am using the below event change for 3 cells ("C2,F2,G6") and calling SortTableChartWB.

how can i trick the below code to add another cell change (O6) to call "Macro2".

As usual, thanks in advance


Private Sub Worksheet_Change(ByVal Target As Range)
Dim Changed As Range, c As Range, myRange As Range



Application.ScreenUpdating = False
Application.EnableEvents = False

Set myRange = Range("C2,F2,G6")


Set Changed = Intersect(Target, myRange)

If Not Changed Is Nothing Then

For Each c In Changed
Call SortTableChartWB
Next c

End If


Application.EnableEvents = True
Application.ScreenUpdating = True

End Sub

 

[RickXL]

Hi,

I have re-written your original code so this might not be what you want.

However, I could not see why you needed to run SortTableChartWB three times if all three cells were changed.
So if it is not right please come back and I will fix it.

Private Sub Worksheet_Change(ByVal Target As Range)

    Dim Changed As Range, c As Range, myRange As Range

    Application.ScreenUpdating = False
    Application.EnableEvents = False
    
    If Not Intersect(Target, Range("O6")) Is Nothing Then Call macro2
    If Not Intersect(Target, Range("C2,F2,G6")) Is Nothing Then Call SortTableChartWB
    
    Application.EnableEvents = True
    Application.ScreenUpdating = True

End Sub

 

[cidfidou]

Hey Rick,

thanks a million. It is working like a charm

 

[RickXL]

Oh good, another satisfied customer

Thanks for letting me know.

Regards,

 

[cidfidou]

That is the least i could do... Thanks again :-0