Hi,

I'm using Excel 2000 and XP pro. When I select a breakpoint and debug
pressing F8, the code seems to work.

When I get to this line of code the variables show the proper values
and the message box does not fire.

For Each rng In myRng
If rng.Value = "" Then
MsgBox "You have not selected a Part Number to quote.",
vbOKCancel
Exit Sub
End If


When I remove the breakpoint and click on the button, the message box
fires.

I don't know why.

Does anyone have any suggestions?

Thanks,

Dan Dungan


This is a portion of my on click procedu

Private Sub cmdAddPart_Click()
'To prepare for printing--This checks that all required component
prices are entered
Dim rng As Range
Dim myRng As Range
Set myRng = Range("FormulaCriteria")

'To determine how many parts the agent has added,
'Set a variable to count how many times the agent clicks the command
button

Dim clickcount As Variant


Application.EnableEvents = False
'ActiveWorkbook.Unprotect ("pricing")

For Each rng In myRng
If rng.Value = "" Then
MsgBox "You have not selected a Part Number to quote.",
vbOKCancel
Exit Sub
End If
If Len(rng.Value) = 1 And rng.Offset(0, 6).Value < 1 Then
MsgBox rng.Offset(-1, 0).Value & vbCrLf & "missing.",
vbAbortRetryIgnore, "Missing Price Error"
Exit Sub
End If
If WorksheetFunction.Sum(Range("E83:O83")) < 1 Then
MsgBox "You have not entered a quantity",
vbAbortRetryIgnore
End If
Next rng
Sheets("Print").Select
Columns("P:P").Select
Selection.AutoFilter
Selection.AutoFilter Field:=1, Criteria1:="<0",
Operator:=xlAnd
ActiveSheet.PrintOut
Selection.AutoFilter
Sheets("QuotedPart").Select
Range("A2:C2").Select