Stop Private Sub when specific Macro Run

[mohamed ali abdelgawad]

Hi Dear All
Need your help in this case


I created sheet and put this macro on it to track if any cell value changed it make action

Private Sub Worksheet_Change(ByVal Target As Range)


If Not Intersect(Target, Range("A2:a200")) Is Nothing Then

Call Call_Start_1
Call Change_1

End If
End Sub

Also I add this macro in module to clear it to start from beginning

Sub Clear()
'
' Clear Macro
'

'
Range("A2:H300").Select
Selection.ClearContents
End Sub

I want to pause Private Sub action while Macro Clear is running


I hope my bad english help me to deliver to you what I want to do
Thanks

 

[Joe4]

You mean you want to temporarily disable events (which are procedures that automatically run upon some event happening, like the change of a cell).

Edit you Clear procedure like this:

[COLOR=#333333]Sub Clear()[/COLOR]
[COLOR=#333333][I]'[/I][/COLOR]
[COLOR=#333333][I]' Clear Macro[/I][/COLOR]
[COLOR=#333333][I]'[/I][/COLOR]
[COLOR=#333333][I]'
[/I][/COLOR][COLOR=#ff0000]    Application.EnableEvents = False[/COLOR]
[COLOR=#333333]    Range("A2:H300").[/COLOR][COLOR=#333333]ClearContents
[/COLOR][COLOR=#ff0000]    Application.EnableEvents = True[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

 

[mohamed ali abdelgawad]

You mean you want to temporarily disable events (which are procedures that automatically run upon some event happening, like the change of a cell).

Edit you Clear procedure like this:

[COLOR=#333333]Sub Clear()[/COLOR]
[COLOR=#333333][I]'[/I][/COLOR]
[COLOR=#333333][I]' Clear Macro[/I][/COLOR]
[COLOR=#333333][I]'[/I][/COLOR]
[COLOR=#333333][I]'
[/I][/COLOR][COLOR=#ff0000]    Application.EnableEvents = False[/COLOR]
[COLOR=#333333]    Range("A2:H300").[/COLOR][COLOR=#333333]ClearContents
[/COLOR][COLOR=#ff0000]    Application.EnableEvents = True[/COLOR]
[COLOR=#333333]End Sub[/COLOR]

exactlly what i want

thank you very much

 

[Joe4]

You are welcome!