VBA about dragging and multi-select checkboxes

Any Excel VBA code can process selecting or unselecting checkboxes in the dragged area by mouse and shade the area at the same time? The attached image is what I want. enter image description here