Good job SNB. Looks cleaner for sure. I'm not sure if there would be some unforeseen side effects of moving the subs to ThisWorkbook or not.

Although, I did see a minor bug that both of us missed.

Private Sub Workbook_Activate()      
    ChkSelection ActiveSheet      
    Application.CellDragAndDrop = True  
End Sub
Should actually read....
Private Sub Workbook_Activate()      
    ChkSelection ActiveSheet      
    Application.CellDragAndDrop = False  
End Sub
With the intent of turning off drag on drop for this workbook, but when switching back and forth between other workbooks, it would turn on and off. As is you could still slip one through if you opened another workbook, then came back to this one.