VBA Excel - Array de objetos

[fjchavez]

Hola Abrahamvj gracias por la ayuda. He modificado el codigo que enviaste y quisiera que el nombre me lo almacene en un array, como haria eso???
Gracias de antemano por tu ayuda.

Código vb:

Dim objeto As Object
 
For Each objeto In Me.Controls
Select Case TypeName(objeto)
Case "TextBox"
objeto.BackColor = vbGreen
if objeto.Value <> "" then
 ALMACENAR EL NOMBRE DEL CONTROL EN UN ARRAY
end if
Case "ComboBox"
objeto.BackColor = vbYellow
if objeto.Value <> "" then
 ALMACENAR EL NOMBRE DEL CONTROL EN UN ARRAY
end if
Case "OptionButton"
objeto.BackColor = vbBlack
if objeto.Value <> "" then
 ALMACENAR EL NOMBRE DEL CONTROL EN UN ARRAY
end if
End Select
 
Next objeto