Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    If Not Intersect(Target, Range("Таблица[[#ALL],[Столбец]]")) Is Nothing Then
        Dim Theme_Number As Integer
        Theme_Number = 0
        UserForm1.Show
        If Not Theme_Number = 0 Then Target.Value = Theme_Number
        Cancel = True
        Exit Sub
    End If
End Sub           

Private Sub Label1_Click()
    Dim Theme_Number As Integer 'потому что он начинает ругаться, если я не объявлю переменную
    Theme_Number = 1
    Unload Me
End Sub
'и так далее на каждый, нужный мне Label
Private Sub Label2_Click()
    Dim Theme_Number As Integer 'потому что он начинает ругаться, если я не объявлю переменную
    Theme_Number = 2
    Unload Me
End Sub