Sub GetAndRemoveSectionByInstanceNumber()
  Dim strSearchString As String
  Dim ScnBrk As Long
  Dim i As Long
  
  ' start at top of document
'  Selection.HomeKey Unit:=wdStory
  
'  System.Cursor = wdCursorWait
   strSearchString = "Inst#: " & ReportInstance
  
  With ActiveDocument.Range
    With .Find
      .ClearFormatting
      .Replacement.ClearFormatting
      .Text = strSearchString
      .Replacement.Text = ""
      .Forward = True
      .Wrap = wdFindStop
      .Format = False
      .MatchWildcards = True
      .Execute
    End With
    If .Find.Found = True Then ' .Find.Found = True Then
      i = .Duplicate.Sections(1).index - 1
      MsgBox (CStr(i))
      ScnBrk = .Sections(i).PageSetup.SectionStart 'error here
      .Duplicate.Sections(1).Range.Delete
      .Sections(i).PageSetup.SectionStart = ScnBrk
    End If
  End With
End Sub