Hi bob,
10x for the reply, i'll try to give more details.
1. I need to create the check box form a form.
2. The check box should be created in a cell
3. The check box is part of an off set

I'll put in some code i hope it will help

Private Sub Submit1_Click()

Dim rng As Range
ActiveWorkbook.Sheets("Database").Activate

Range("B2").Select

Do

If IsEmpty(ActiveCell) = False Then

ActiveCell.Offset(1, 0).Select

End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = cboConsultant.Value

ActiveCell.Offset(0, 1) = cboCostumer.Value

ActiveCell.Offset(0, 2) = cboSubtask.Value

ActiveCell.Offset(0, 3) = txtDescription.Value

ActiveCell.Offset(0, 4) = txtDate.Value

ActiveCell.Offset(0, 5) = txtHours.Value

ActiveCell.Offset(0, 6) = cboPriority.Value

ActiveCell.Offset(0, 7) = txtMisc.Value

If chkDeliverd = True Then

ActiveCell.Offset(0, 8).Value = "done"
' ActiveSheet.OLEObjects.Add(ClassType:="Forms.Check Box.1"
Link:=True, _
' DisplayAsIcon:=True, Left:=547.5, Top:=130.5, Width:=41.25
Height:= _
' 27.75).Select

I want to repalce the "done" with a checkbox


10x
Yam

--
Message posted from http://www.ExcelForum.com