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 are: blank, 3, 4"
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
Application.Run "routemodel.xls!editcolb"
End Sub
--
Neal Z
Bookmarks