G
Guest
I am getting a VB '400' error on (the red circle with an X and only the 400)
on the following
this is all the code that is in the sub:
<BEGIN VB CODE>
Private Sub AddToSalesJournal()
Sheets("sales journal").Select
Cells(Cells.Rows.Count, 4).End(xlUp)(2).Select
End Sub
<END VB CODE>
the next line that is excecuted after this sub exits is
MsgBox "Order # " & workOrderNumber & " for " & customerName & " added
successfully."
and the code is done running (or should be).
Is there a problem with my system? Or am I doing something wrong?
on the following
this is all the code that is in the sub:
<BEGIN VB CODE>
Private Sub AddToSalesJournal()
Sheets("sales journal").Select
Cells(Cells.Rows.Count, 4).End(xlUp)(2).Select
End Sub
<END VB CODE>
the next line that is excecuted after this sub exits is
MsgBox "Order # " & workOrderNumber & " for " & customerName & " added
successfully."
and the code is done running (or should be).
Is there a problem with my system? Or am I doing something wrong?