CB1.Value = True
CB2.Value = True
.
.
CB25.Value = True
Pero estoy empeñado en hacerlo con poco código, como debe ser. Para ello he hecho este código que utiliza una variable de cadena de texto (NombreCasilla) y un For...Next para que la cadena quede cargada cada vez con "CB" concatenada con un número sucesivo de 1 a 25. El problema es que al poner la propiedad Value a True, se debe tratar de una variable de objeto y no de texto. Por tanto me da error (No coinciden los tipos), al intentar asignarle a la variable de objeto (NombreObjeto) una cadena de texto (NombreCasilla):
Código:
El fallo lo da en la linea:Private Sub cmdActivarTodas_Click() Dim Contador As Integer, NombreCasilla As String, NombreObjeto As Object Contador = 1 For Contador = 1 To 25 NombreCasilla = "CB" & Contador Set NombreObjeto = NombreCasilla NombreObjeto.Value = True Contador = Contador + 1 Next Contador End Sub
Set NombreObjeto = NombreCasilla
¿Cómo puedo crear con una cadena de texto un nombre de objeto que ya existe en Excel?
Gracias