rtIndexCount &gt; 0) Then
         ReDim Preserve m_tSort(1 To m_iSortIndexCount) As tSortInfo
      End If
      m_bGridMatch = False
   Else
      gErr 9, "Subscript out of range."
   End If
End Sub

Public Sub ClearNongrouped()
Attribute ClearNongrouped.VB_Description = "Clears only non-grouping sort rows
 from the sort object."
Dim i As Long
Dim j As Long
   For i = m_iSortIndexCount To 1 Step -1
      If Not (m_tSort(i).Group) Then
         If (m_iSortIndexCount &gt; 1) Then
            For j = i + 1 T