Bom dia pessoal. Tenho um projeto em VBA onde será feita reserva de materiais, onde as pessoas irão analisar um calendário de disponibilidade. Este calendário é anual, ou seja, tem todos os dias do ano (não conta anos bissextos), um label para cada dia, cada um referenciado a uma célula da planilha onde contem a quantidade de material disponível para aquela data, porém, quando eu abro o programa este erro é exibido:

runtime error '-2147417848 (80010108)':
Automation error
The object invoked has disconnected from its clients.

Não sei mais o que fazer

O erro está aqui:

'Janeiro
CalendarioMala2.j1.Caption = Range("N2")
CalendarioMala2.j2.Caption = Range("N3")
CalendarioMala2.j3.Caption = Range("N4")
CalendarioMala2.j4.Caption = Range("N5")
CalendarioMala2.j5.Caption = Range("N6")
CalendarioMala2.j6.Caption = Range("N7")
CalendarioMala2.j7.Caption = Range("N8")
CalendarioMala2.j8.Caption = Range("N9")
CalendarioMala2.j9.Caption = Range("N10")
CalendarioMala2.j10.Caption = Range("N11")
CalendarioMala2.j11.Caption = Range("N12")
CalendarioMala2.j12.Caption = Range("N13")
CalendarioMala2.j13.Caption = Range("N14")
CalendarioMala2.j14.Caption = Range("N15")
CalendarioMala2.j15.Caption = Range("N16")
CalendarioMala2.j16.Caption = Range("N17")
CalendarioMala2.j17.Caption = Range("N18")
CalendarioMala2.j18.Caption = Range("N19")
CalendarioMala2.j19.Caption = Range("N20")
CalendarioMala2.j20.Caption = Range("N21")
CalendarioMala2.j21.Caption = Range("N22")
CalendarioMala2.j22.Caption = Range("N23")
CalendarioMala2.j23.Caption = Range("N24")
CalendarioMala2.j24.Caption = Range("N25")
CalendarioMala2.j25.Caption = Range("N26")
CalendarioMala2.j26.Caption = Range("N27")
CalendarioMala2.j27.Caption = Range("N28")
CalendarioMala2.j28.Caption = Range("N29")
CalendarioMala2.j29.Caption = Range("N30")
CalendarioMala2.j30.Caption = Range("N31")
CalendarioMala2.j31.Caption = Range("N32")

Pessoal, o problema está na atribuição do valor de uma célula a uma label.
Com apenas UMA label com valor atribuído já dá esse erro...