title: VBA Excel Break Points and Stop do not work
body: <p>Any idea why inserting break points and stop no longer stops my vba code from running?</p>
  
  <p>The code runs ok all the way to the end (I tested it) but ignores break points and Stop.</p>
  
  <p>Also step into just makes the code run in it's entirety, ignoring break points and stops.</p>
  
  <p>When I close the workbook where the issue seems to originate from the same issue occurs in other macro workbooks.</p>
  
  <p>if I completely close excel and re-open it with a normally working macro workbook the issue doesn't occur until I re-open the problem work book.</p>
  
  <p>I added breakpoints on:</p>
  
  <pre><code>TotP1 = 0
  </code></pre>
  
  <p>of the following code:</p>
  
  <pre><code>Option Explicit
  
  Private Country As String
  Private Measure As String
  Private P1 As String
  Private P2 As String
  Private TotP1 As Double
  Private TotP2 As Double
  
  
  Sub VennDisplayIt()
  
  Dim SI() As String
  Dim SICount As Integer
  Dim x As Integer
  Dim OSh As Worksheet
  Dim BrandListBox As Object
  Dim VennGroup As Shape
  
  TotP1 = 0
  TotP2 = 0
  
  
  Set OSh = ThisWorkbook.Sheets("Venn")
  
  Set BrandListBox = OSh.OLEObjects("BrandListBox").Object
  
  ReDim SI(2, 0)
  
  For x = 0 To BrandListBox.ListCount - 1
  
      If BrandListBox.Selected(x) = True Then
          'If UBound(SI) &lt; 4 Then
              ReDim Preserve SI(2, UBound(SI, 2) + 1)
  
              SI(1, UBound(SI, 2)) = BrandListBox.List(x)
              SI(2, UBound(SI, 2)) = x + 1
          'End If
  
      End If
  
  Next x
  
  
  If UBound(SI, 2) &lt; 2 Then
      BrandListBox.Selected(BrandListBox.ListIndex) = True
      Exit Sub
  ElseIf UBound(SI, 2) &gt; 4 Then
      BrandListBox.Selected(BrandListBox.ListIndex) = False
      Exit Sub
  End If
  
  For x = 1 To UBound(SI, 2)
      OSh.Range("o8").Offset(x, 0).Value = SI(1, x)
      OSh.Range("o8").Offset(x + 5, 0).Value = SI(1, x)
  Next x
  
  For x = UBound(SI, 2) + 1 To 4
      OSh.Range("o8").Offset(x, 0).Value = ""
      OSh.Range("o8").Offset(x + 5, 0).Value = ""
  Next x
  
  
  SICount = UBound(SI, 2)
  
  For x = 1 To OSh.Shapes.Count
      If Right(OSh.Shapes(x).Name, 5) = "Group" Then
      If LCase(OSh.Shapes(x).Name) = SICount &amp; "waygroup" Then
          Set VennGroup = OSh.Shapes(x)
          OSh.Shapes(x).Visible = True
      Else
          OSh.Shapes(x).Visible = False
      End If
      End If
  
  Next x
  
  For x = 1 To SICount
  
      VennGroup.GroupItems.Item(SICount &amp; "WayBrand" &amp; x).DrawingObject.Text = SI(1, x)
  
  Next x
  
  
  Country = ThisWorkbook.Sheets("Venn").Range("D4").Value
  Measure = ThisWorkbook.Sheets("Venn").Range("E32").Value
  P2 = ThisWorkbook.Sheets("Venn").Range("E31").Value
  P1 = ThisWorkbook.Sheets("Selections").Range("B5").Value
  
  
  End Sub
  </code></pre>