Desabilitar Vários objetos do Formulario

Question

Olá.

Trabalho com controle patrimonial e montei, no vba, um formulário com dois listbox, dois botões e uma multipage, onde cada uma dessas abas tem a planta baixa de cada setor (num total de 80 setores).

Nessas plantas contêm os patrimônios presente no setor e em cada patrimônio associei um label (num total de 6.000 patrimônios).

O procedimento é o seguinte: Quando seleciono o setor (listbox1), aparece a aba correspondente do setor com a respectiva planta baixa e a listbox2 mostra os bens daquele setor. O listbox2 é MultiSelect = 1 e ListStyle = 1. Quando seleciono o(s) número(s) de patrimônio(s) e clico no Button1, o(s) label(s) associados fica(m) visível(is). O Button2 é para colocar todos os label's invisíveis (visible = false).

A ajuda que peço é:

Uns dos comando do Button1 é o seguinte:

.....

    If Cells(row, col) = Label_1.Caption Then
        Label_1.Visible = True
    ElseIf Cells(row, col) <> Label_1.Caption Then
        Label_1.Visible = False
    End If

.

.

.

    If Cells(row, col) = Label_6.000.Caption Then
        Label_6.000.Visible = True
    ElseIf Cells(row, col) <> Label_6.000.Caption Then
        Label_6.000.Visible = False
    End If

.....

O problema é que eu inseri 6.000 label's e quando eu clico no Button1 aparece a seguinte mensagem:

Erro de compilação:

Número excessivo de variáveis locais, não-fixas.

Há uma possibilidade de inserir uma variável para a label e fazer um incremento para habilitar/desabitar apenas as label's de interesse?

Obrigado.