Olá, Wilker12
Também não sei se entendi corretamente, mas no meu entendimento nessas situações o melhor seria ao invés de Var10, usar algo como Var(10), ou seja, uma matriz daquele tipo de objeto ou conteúdo onde o índice fica flexível como um parâmetro passável.
Exemplo:
Sub VariávelIndexada()
Dim Var(1 To 5) As msforms.CheckBox
Dim i As Integer, Var1Qualquer As msforms.CheckBox, Var2Qualquer As Boolean
For i = 1 To 5
Set Var(i) = Plan1.OLEObjects("CheckBox" & i).Object
Next i
'Uso - exemplos:
Set Var1Qualquer = Var(5)
Var2Qualquer = Var(2).Value
End Sub
Postado : 16/07/2018 4:53 pm