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?