ReportControl: Stop last being removed?

Private Sub xrcParent_ColumnOrderChanged()
Dim xrcCol As XtremeReportControl.ReportColumn
Dim iCountVisible As Long
On Error Resume Next

  ' Loop through column collection
  For Each xrcCol In xrcParent.Columns
    ' Count visible cols
    If xrcCol.Visible Then iCountVisible = iCountVisible + 1
    ' Exit Loop if more than one visible column
    If iCountVisible > 1 Then Exit For
  Next
  ' Set AllowColumnRemove based on visible columns
  xrcParent.AllowColumnRemove = (iCountVisible > 1)
  
Exit_xrcParent_ColumnOrderChanged:
  Set xrcCol = Nothing
  On Error GoTo 0
  Exit Sub
End Sub