Hi again,

The highlighted addition to your code seems to give the correct result on my system (Excel 2000):

Private Sub cmdOK_Click()
    ActiveWorkbook.Sheets("Feedback Summary").Activate
    Range("A1").Select
    Do
    If IsEmpty(ActiveCell) = False Then
        ActiveCell.Offset(1, 0).Select
    End If
    Loop Until IsEmpty(ActiveCell) = True
    ActiveCell.Value = DateValue(txtDate.Value)
    ActiveCell.Offset(0, 1) = cboCourse.Value
    ActiveCell.Offset(0, 2) = cboTrainer.Value
    ActiveCell.Offset(0, 3) = cboDels.Value
    ActiveCell.Offset(0, 4) = txtCat1.Value
    ActiveCell.Offset(0, 5) = txtCat2.Value
    ActiveCell.Offset(0, 6) = txtCat3.Value
    ActiveCell.Offset(0, 7) = txtCat4.Value
    ActiveCell.Offset(0, 8) = txtCat5.Value
    ActiveCell.Offset(0, 9) = txtCat6.Value
    ActiveCell.Offset(0, 10) = txtComm.Value
    Range("A1").Select
End Sub
Hope this helps - please let me know how you get on.

Regards,

Greg M