Hi

I have a user form that fills in the sheet payments once the add btn
is clicked. This was working fine, then I start getting the above
error. I had done more design changes to the form but since this error
I have put everything back to working design.

Private Sub cmdAddBtn1_Click()
ActiveWorkbook.Sheets("Payments").Activate
*Sheets("HEA Payments").Select - tried inserting this line but no
effect
Range("A1").End(xlDown).Offset(1, 0).Select



If txtPm.Value = "" Then

txtPm.Value = txtAuth.Value

Else: txtPm.Value = txtPm.Value

End If
ActiveCell.Value = txtDate.Value

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

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

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

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

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

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

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

ActiveCell.Offset(0, 8) = txtComments.Value


End Sub

Thanks garry.

Winxp xl2k