Pasar a tabla CheckBox con Caption

[Mario1974]

Buenas tardes. Necesito cargar estos CheckBox en una tabla pero solo si están "check". De no ser así la celda debería quedar vacía. Se entiende?

Desde ya muchas gracias por cualquier ayuda o aporte.

         .Cells(NuevaFila, 33).Value = Me.Comp35.Caption
        .Cells(NuevaFila, 34).Value = Me.Comp85.Caption
        .Cells(NuevaFila, 35).Value = Me.Comp205.Caption
        .Cells(NuevaFila, 36).Value = Me.Comp206.Caption
        .Cells(NuevaFila, 37).Value = Me.Comp207.Caption
        .Cells(NuevaFila, 38).Value = Me.Comp329.Caption

[JasallBcn]

Buenas, seria algo así:

Range("a1").Value = IIf(Me.CheckBox1.Value, Me.CheckBox1.Caption, "")
Range("a2").Value = IIf(Me.CheckBox2.Value, Me.CheckBox2.Caption, "")

Saludos

[Mario1974]

PERFECTO!