Select Listbox Item Without Triggering Change Event

I have a Multi-Select Active-X Control Listbox and an associated Button. I am trying to create a dynamic Select ALL, Clear All Button. Clear All Function Works, but Select All triggers the Change Event for the Listbox.

figuring out a way to either

1. Disable the Change event until the "Select all" loop is completed or

2. Find a way to write the action for the Button directly, such that the click event is programmed as part of the Change event, and everything is done in one.

Cannot Attach file due to file size, code below:

Option Explicit
Dim i As Long
Dim j As Long

[Code].....