combo boxes again

I am using a combo box to enter data into an offset cell to the active cell.
I can type free text into the combo box but cannot get it to enter when I
click the box (which activates the sub to enter the data) into the offset
cell! I suspect this is because it doesnt count this as a click event?

My sub for entering text is as follows:

Private Sub ComboBox1_Click()

Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual

Dim Newvalue, d
With Worksheets("Main Board")

c = .Range("D82").Value
ActiveCell.Offset(c, 0).Value = ComboBox1.Value
ComboBox1.Value = ""

End With
ComboBox1.Visible = False

Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True

End Sub

any Ideas anyone ??