Или просто a = Label1

Я обычно в этом случае не особо заморачиваюсь по поводу универсальности кода, и пишу что-то вроде этого:  
 
Private Sub Label1_Click(): CheckLabel 1: End Sub  
Private Sub Label2_Click(): CheckLabel 2: End Sub  
Private Sub Label3_Click(): CheckLabel 3: End Sub  
Private Sub Label4_Click(): CheckLabel 4: End Sub  
 
Sub CheckLabel(ByVal n)  
MsgBox "Label" & n  
End Sub  
 
 
Ну а если хочется сделать нормально - надо использовать классы  
10 строк кода - и никаких проблем, обработчики для отдельных Label не понадобятся.  
Пример модуля класса (только для чекбоксов, и там много лишнего кода):  
http://excelvba.ru/XL_Files/Sample__26-10-2011__18-26-49.zip

Сейчас и использую почти такое решение, а с классами связываться в данном случае не хочется.