Thank you David, though I am not a programmer and Im not sure what to do
with that. Here is what my code looks like.

Private Sub cmdSave_Click()

ActiveWorkbook.Sheets("Contacts").Activate
Range("A1").Select

Do

If IsEmpty(ActiveCell) = False Then
ActiveCell.Offset(1, 0).Select
End If

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = txtName.Value
ActiveCell.Offset(0, 2) = txtCompany.Value
ActiveCell.Offset(0, 3) = txtAddress.Value
ActiveCell.Offset(0, 4) = txtPhone.Value

ActiveCell.Offset(0, 13) = txtProject.Value
ActiveCell.Offset(0, 10) = cboIndustry.Value
ActiveCell.Offset(0, 15) = cboPersonInCharge.Value

End Sub

In "Customers" sheet I am supposed to save the data
Name, Company, Address, Phone

In "Projects" sheet I am supposed to save the data
Project, Company, Name,
Industry, Person In Charge

Though in reality I have many more that just those fields.


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