I got it to work, thank you, I had to create a new workbook with a new form,
so it must have been the error that I received when excel crashed.
Thank you both!

"Bob Phillips" wrote:

Try again

Private Sub CmdSaveChanges_Click()
ActiveWorkbook.Sheets("Order").Activate

With Range("A1").End(xlDown)

.Offset(1, 0).Value = TextDate.Value

.Offset(1, 1) = ComboWebsite.Value

If NewCust Then

.Offset(1, 2).Value = "New Customer"
ElseIf ExistCust Then

.Offset(1, 2).Value = "Existing Customer"
End If

If NewOrder Then

.Offset(1, 3).Value = "New Order"
ElseIf ReOrder = True Then

.Offset(1, 3).Value = "ReOrder"
End If

.Offset(1, 4) = ContactName.Value
.Offset(1, 5) = Email.Value
.Offset(1, 6) = OldOrder.Value
.Offset(1, 7) = Rep.Value
.Offset(1, 8) = TxtBillName.Value

.Offset(1, 9) = TxtBillAdd1.Value
.Offset(1, 10) = TxtBillAdd2.Value
.Offset(1, 11) = TxtBillCity.Value
.Offset(1, 12) = TxtBillState.Value
.Offset(1, 13) = TxtBillCountry.Value
.Offset(1, 14) = TxtBillZip.Value

.Offset(1, 15) = TxtShipAdd1.Value
.Offset(1, 16) = TxtShipAdd2.Value
.Offset(1, 17) = TxtShipCity.Value
.Offset(1, 18) = TxtShipState.Value
.Offset(1, 19) = TxtShipCountry.Value
.Offset(1, 20) = TxtShipZip.Value

.Offset(1, 21) = ComboCCType.Value
.Offset(1, 22) = TextCC.Value
.Offset(1, 23) = TextCCExp.Value
.Offset(1, 24) = TextCCSec.Value
.Offset(1, 25) = ComboItem1.Value
.Offset(1, 26) = TxtItemQty1.Value
.Offset(1, 27) = TxtItemUnit1.Value
.Offset(1, 28) = TxtItemExt1.Value

.Offset(1, 29) = ComboItem2.Value
.Offset(1, 30) = TxtItemQty2.Value
.Offset(1, 31) = TxtItemUnit2.Value
.Offset(1, 32) = TxtItemExt2.Value

.Offset(1, 33) = ComboItem3.Value
.Offset(1, 34) = TxtItemQty3.Value
.Offset(1, 35) = TxtItemUnit3.Value
.Offset(1, 36) = TxtItemExt3.Value

.Offset(1, 37) = ComboItem4.Value
.Offset(1, 38) = TxtItemQty4.Value
.Offset(1, 39) = TxtItemUnit4.Value
.Offset(1, 40) = TxtItemExt4.Value

.Offset(1, 41) = ShipExt.Value
.Offset(1, 42) = SetupExt.Value
.Offset(1, 43) = DesignExt.Value
.Offset(1, 44) = RushExt.Value
.Offset(1, 45) = Colors.Value
.Offset(1, 46) = ComboAttach.Value
.Offset(1, 47) = ComboMaterial.Value
.Offset(1, 48) = ComboType.Value
.Offset(1, 49) = NumberOColors.Value
.Offset(1, 50) = instructions.Value
.Offset(1, 51) = ComboAttach.Value
.Offset(1, 52) = Factory.Value
.Offset(1, 53) = Artfile.Value
.Offset(1, 54) = ComboShip.Value
End With
End Sub


--
HTH

Bob

(there's no email, no snail mail, but somewhere should be gmail in my addy)

"Pam" wrote in message
...
This is actually all of the code for that sub, didn't post it all because
it's so long, but maybe it will explain what I'm doing more.

Private Sub CmdSaveChanges_Click()
ActiveWorkbook.Sheets("Order").Activate

Range("A1").Select

Do

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

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = TextDate.Value

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

If NewCust = True Then

ActiveCell.Offset(0, 2).Value = "New Customer"

ElseIf ExistCust = True Then

ActiveCell.Offset(0, 2).Value = "Existing Customer"

End If

If NewOrder = True Then

ActiveCell.Offset(0, 3).Value = "New Order"

ElseIf ReOrder = True Then

ActiveCell.Offset(0, 3).Value = "ReOrder"

End If

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

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

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

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

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

ActiveCell.Offset(0, 9) = TxtBillAdd1.Value
ActiveCell.Offset(0, 10) = TxtBillAdd2.Value
ActiveCell.Offset(0, 11) = TxtBillCity.Value
ActiveCell.Offset(0, 12) = TxtBillState.Value
ActiveCell.Offset(0, 13) = TxtBillCountry.Value
ActiveCell.Offset(0, 14) = TxtBillZip.Value

ActiveCell.Offset(0, 15) = TxtShipAdd1.Value
ActiveCell.Offset(0, 16) = TxtShipAdd2.Value
ActiveCell.Offset(0, 17) = TxtShipCity.Value
ActiveCell.Offset(0, 18) = TxtShipState.Value
ActiveCell.Offset(0, 19) = TxtShipCountry.Value
ActiveCell.Offset(0, 20) = TxtShipZip.Value

ActiveCell.Offset(0, 21) = ComboCCType.Value
ActiveCell.Offset(0, 22) = TextCC.Value
ActiveCell.Offset(0, 23) = TextCCExp.Value
ActiveCell.Offset(0, 24) = TextCCSec.Value
ActiveCell.Offset(0, 25) = ComboItem1.Value
ActiveCell.Offset(0, 26) = TxtItemQty1.Value
ActiveCell.Offset(0, 27) = TxtItemUnit1.Value
ActiveCell.Offset(0, 28) = TxtItemExt1.Value

ActiveCell.Offset(0, 29) = ComboItem2.Value
ActiveCell.Offset(0, 30) = TxtItemQty2.Value
ActiveCell.Offset(0, 31) = TxtItemUnit2.Value
ActiveCell.Offset(0, 32) = TxtItemExt2.Value

ActiveCell.Offset(0, 33) = ComboItem3.Value
ActiveCell.Offset(0, 34) = TxtItemQty3.Value
ActiveCell.Offset(0, 35) = TxtItemUnit3.Value
ActiveCell.Offset(0, 36) = TxtItemExt3.Value

ActiveCell.Offset(0, 37) = ComboItem4.Value
ActiveCell.Offset(0, 38) = TxtItemQty4.Value
ActiveCell.Offset(0, 39) = TxtItemUnit4.Value
ActiveCell.Offset(0, 40) = TxtItemExt4.Value

ActiveCell.Offset(0, 41) = ShipExt.Value
ActiveCell.Offset(0, 42) = SetupExt.Value
ActiveCell.Offset(0, 43) = DesignExt.Value
ActiveCell.Offset(0, 44) = RushExt.Value
ActiveCell.Offset(0, 45) = Colors.Value
ActiveCell.Offset(0, 46) = ComboAttach.Value
ActiveCell.Offset(0, 47) = ComboMaterial.Value
ActiveCell.Offset(0, 48) = ComboType.Value
ActiveCell.Offset(0, 49) = NumberOColors.Value
ActiveCell.Offset(0, 50) = instructions.Value
ActiveCell.Offset(0, 51) = ComboAttach.Value
ActiveCell.Offset(0, 52) = Factory.Value
ActiveCell.Offset(0, 53) = Artfile.Value
ActiveCell.Offset(0, 54) = ComboShip.Value




End Sub

"Mike H" wrote:

Pam

It finds the empty cell OK, if somewhat unconventionally, but is falling
over on the line:-
ActiveCell.Value = TextDate.Value
I assume here you are trying to enter a date so this line will do that
ActiveCell.Value = Date
It falls over again on the line
ActiveCell.Offset(0, 1) = ComboWebsite.Value
and I don't really understand what your trying to do here.
In the snippet of code given both Newcust and Existcust are not set so
neither of the if or else conditions are satisfied.

Mike



"Pam" wrote:

I am trying to do a very simple statement, but vb6 keeps giving me
errors on
this line.
I want to search for the next available line (that is empty).
Here's my code, what have I done wrong? It is giving me the error on
the
line after the If IsEmpty line.
Thanks
Pam

Private Sub CmdSaveChanges_Click()
ActiveWorkbook.Sheets("Order").Activate

Range("A1").Select

Do

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

Loop Until IsEmpty(ActiveCell) = True

ActiveCell.Value = TextDate.Value

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

If NewCust = True Then

ActiveCell.Offset(0, 2).Value = "New Customer"

ElseIf ExistCust = True Then

ActiveCell.Offset(0, 2).Value = "Existing Customer"

End If