Quiero implementar un botón de comando que ponga a True a la vez a 25 casillas de verificación llamadas CB1, CB2, CB3, ........ , CB25. Por supuesto, se puede utilizar 25 veces la sentencia:
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:
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
El fallo lo da en la linea:
Set NombreObjeto = NombreCasilla
¿Cómo puedo crear con una cadena de texto un nombre de objeto que ya existe en Excel?
Gracias