f Not fC.Cancelled Then
         Screen.MousePointer = vbHourglass
         If fC.SelectionCount &gt; 0 Then
            ReDim sThis(0 To fC.SelectionCount - 1) As String
            ReDim eOrder(0 To fC.SelectionCount - 1) As cShellSortOrderCOnstants
            For j = 1 To fC.SelectionCount
               sThis(j - 1) = fC.SelectedKey(j)
               eOrder(j - 1) = fC.SelectedOrder(j)
            Next j
            DoGroup fC.SelectionCount, sThis(), eOrder()
         Else
            DoGroup 0, sThis