varias CheckBox mais Array's macro

[edcronos]

nem sei se tem como fazer

para evitar de escrever um monte de IF's tentei usar array para varrer as caixas de seleção

REV1,2,3... e LO1,2,3... são caixas de seleção

 

Revo = Array(rev1.Value, rev2.Value,...)
loo = Array(lo1.Value, lo2.Value, lo3.Value, ...)

Revo = Array(rev1, rev2, rev3, rev4, ...).Value   
loo = Array(lo1, lo2, lo3, lo4, lo5, lo6, lo7, lo8, lo9, lo10).Value

Revo = Array(rev1, rev2, rev3, rev4, ...)
loo = Array(lo1, lo2, lo3, lo4, lo5,...)

 

como podem ver eu testei de varias maneiras, mas sem sucesso

 

Suo = Array("mac1", "mac2", "mac3", "mac4", "mac5", "mac6", "mac7", "mac8", "mac9", "mac10") " esse  sem os outros funciona"

For cs = 0 To 9
revi = Revo(cs - Ab)
If Revo(cs) = "True" Then N = Ac Else N = Ab
If loo(cs) = "True" Then Application.Run Suo(cs): GoSub Lad1
Next

 

Será que tem como pegar valor de caixas de seleção com array, OU tem alguma maneira de varrer todas sem usar um monte de IF's?
qualquer ajuda serve.

[edcronos]

Edit: achei a solução

 

Suo = Array("mac1", "mac2", "mac3", "mac4", "mac5", "mac6", "mac7", "mac8", "mac9", "mac10")

 

For cs = 1 To 10
revi = "rev" & cs  
loo = "lo" & cs
If Me.Controls(revi) = True Then N = Ac Else N = Ab
If Me.Controls(loo) = True Then Application.Run Suo(cs - 1): GoSub Lad1
Next

 

"Me.Controls(  ) " transforma valor de variaveis em instrunção comandos assim como Application.Run tranforma valor de variaveis em chamada de macro