'   E m a d   A l   H o s a m i 
 
 '   h o s a m i 1 @ y a h o o . c o m 
 
 '   J o r d a n   -   A m m a n 
 
 '   /'D)    'D941)  'D'H'&D      "   T O P T E N   " 
 
 
 
 F u n c t i o n   T O P T E N ( M a r k _ T a b l e   A s   R a n g e ,   C e r _ T a b l e   A s   R a n g e ,   R N K   A s   I n t e g e r ,   T r u e _ F a l s e   A s   B o o l e a n ) 
 
 A p p l i c a t i o n . S c r e e n U p d a t i n g   =   F a l s e 
 
 D i m   R w ,   i ,   k   A s   L o n g 
 
 D i m   C O N   A s   I n t e g e r 
 
 D i m   H O S 
 
 D i m   A R R 
 
 D i m   S S 
 
 D i m   M 
 
 D i m   S 
 
 T O P T E N   =   " # N / A " 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 I f   T r u e _ F a l s e   =   T r u e   T h e n 
 
 A R R   =   A r r a y ( " " ,   " 'D#HD" ,   " 'D+'FJ" ,   " 'D+'D+" ,   " 'D1'(9"   _ 
 
 ,   " 'D.'E3" ,   " 'D3'/3" ,   " 'D3'(9" ,   " 'D+'EF" ,   " 'D*'39" ,   " 'D9'41" ) 
 
 F o r   i   =   1   T o   R N K 
 
 C O N   =   W o r k s h e e t F u n c t i o n . C o u n t I f ( M a r k _ T a b l e ,   W o r k s h e e t F u n c t i o n . L a r g e ( M a r k _ T a b l e ,   i ) ) 
 
 H O S   =   H O S   +   ( 1   /   C O N ) 
 
 N e x t   i 
 
 H O S   =   W o r k s h e e t F u n c t i o n . C e i l i n g ( H O S ,   1 ) 
 
 S S   =   " " 
 
 I f   R N K   =   1   T h e n   G o T o   1 0 
 
 I f   W o r k s h e e t F u n c t i o n . L a r g e ( M a r k _ T a b l e ,   R N K )   =   W o r k s h e e t F u n c t i o n . L a r g e ( M a r k _ T a b l e ,   R N K   -   1 )   _ 
 
 T h e n   S S   =   "   EC11" 
 
 1 0   T O P T E N   =   A R R ( H O S )   &   S S 
 
 E x i t   F u n c t i o n 
 
 E n d   I f 
 
 ' - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - 
 
 F o r   R w   =   1   T o   M a r k _ T a b l e . R o w s . C o u n t 
 
 I f   W o r k s h e e t F u n c t i o n . L a r g e ( M a r k _ T a b l e ,   R N K )   =   M a r k _ T a b l e . C e l l s ( R w ,   1 )   T h e n 
 
 C O N   =   W o r k s h e e t F u n c t i o n . C o u n t I f ( M a r k _ T a b l e ,   W o r k s h e e t F u n c t i o n . L a r g e ( M a r k _ T a b l e ,   R N K ) ) 
 
 I f   C O N   =   0   T h e n 
 
 T O P T E N   =   C e r _ T a b l e . C e l l s ( R w ,   1 ) . T e C O N t 
 
 E x i t   F u n c t i o n 
 
 E n d   I f 
 
 I f   C O N   < >   0   T h e n 
 
 M   =   M   +   1 :   S   =   0 
 
 F o r   k   =   1   T o   R N K 
 
 I f   W o r k s h e e t F u n c t i o n . L a r g e ( M a r k _ T a b l e ,   R N K )   =   W o r k s h e e t F u n c t i o n . L a r g e ( M a r k _ T a b l e ,   k )   T h e n   S   =   S   +   1 
 
 N e x t   k 
 
 I f   S   =   M   T h e n 
 
 T O P T E N   =   C e r _ T a b l e . C e l l s ( R w ,   1 ) . V a l u e 
 
 E x i t   F u n c t i o n 
 
 E n d   I f 
 
 E n d   I f 
 
 E n d   I f 
 
 N e x t   R w 
 
 A p p l i c a t i o n . S c r e e n U p d a t i n g   =   T r u e 
 
 E n d   F u n c t i o n 
 
 