Cambiar valor de checkbox de "Verdadero" a "X"

Si tienes algo como esto para pasar los datos a la hoja:

Cells(i, "D") = CheckBox1

Cambia a esto:

Cells(i, "D") = IIf(CheckBox1, "X", "")

Hola Dante, agrego los datos con una rutina que llama la ultima celda de la hoja:

Hoja6.Cells(Final, 6) = Me.ComboBox2.Text
Hoja6.Cells(Final, 7) = Me.CheckBox1

Como decía en mi mensaje anterior, son 7 checkbox, uno por cada día de la semana, lo que necesito es señalar los días en que tiene turno un empleado, si trabaja ese día sería VERDADERO, pero necesito que me  marque X, y si no trabaja en un día al no habilitar el CheckBox sería FALSO, pero ese dato no lo necesito y no quiero que salga.  Gracias.