Just insert the following line as shown:
On Error GoTo Err_EmptyArray
WordBasic.SortArray arrChecked 'insert this line
Select Case UBound(arrChecked)
Just insert the following line as shown:
On Error GoTo Err_EmptyArray
WordBasic.SortArray arrChecked 'insert this line
Select Case UBound(arrChecked)
Posting Permissions
Reply With Quote