Am novice in VB. was trying to take baby steps.
The editcolb macro was hand edited, and was working in test mode on 1 cell
when I ran the macro from the macros dialog box.

Things went blooey when I tried to execute if from the private worksheet
coding area.

From the doc I know it's a system error, but I have no clue why I caused it.
Help! Thanks.


Sub EditColB()
Range("b5") = Trim(Range("b5"))
If Range("b5") < " " And Range("b5") < "" And _
Range("b5") < "3" And Range("b5") < "4"
Then MsgBox "Valid delivery codes a blank, 3, 4"
End Sub


Private Sub Worksheet_Change(ByVal Target As Range)
Application.Run "routemodel.xls!editcolb"
End Sub


--
Neal Z