Checkbox¿?

hola, Amadeo !

... checkbox en una hoja y en una subrutina necesito hacer
""""If CheckBox1.Caption Then Variable = 1"""""
... que mire al CheckBox1.Caption que esta en la hoja(1) dentro de la subrutina que se encuentra en el modulo1

1° la propiedad 'Caption' se refiere al texto 'descriptivo' que acompaña al objeto al que se hace referencia
es decir... es necesario 'casarla' con alguna cadena de texto para 'establecerla', 'cambiarla', 'compararla' o [...]
en caso de NO 'usar' la cadena de texto... la ejecucion de la macro 'causara' un error 13 'en tiempo de ejecucion' :(
2° en el caso de 'CheckBoxes' [de la barra de herramientas 'cuadro de controles'] incrustados en hojas de calculo
es necesario hacer referencia a los objetos 'OLE' de la hoja y [tambien] a la propiedad 'Object' del objeto
[para poder hacer 'uso' de la propiedad 'Caption'] p.e.
en el codigo del modulo 1 ==[... otras lineas de codigo ...]
On Error GoTo Errores
If Worksheets(1).OLEObjects("CheckBox1").Object.Caption <> "Descripción original" Then
MsgBox "¡ Se ha modificado la descripción de la casilla de verificación 1 !!!"
Else
MsgBox "Todo sigue igual"
End If
GoTo Saltar_Errores
Errores: ' aqui se 'verifica' por si hubo errores '
Select Case Err.Number
Case 9: MsgBox "La hoja donde ""se busca""... ¡ NO EXISTE !!!"
Case 1004: MsgBox "La casilla de verificación... ¡ NO EXISTE !!!" & vbCr & _
"[o se encuentra en otra hoja]"
Case Else: MsgBox "Error " & Err.Number & vbCr & Err.Description
End Select: Err.Clear
Saltar_Errores: ' aqui se 'continua' la ejecucion del codigo ['independientemente' de si hubo errores o no] '
[... otras lineas de codigo ...]

saludos,
hector.

p.d. ¿como resolviste el problema con la 'visualizacion' de los controles???