Ich habe aus der Prozedur
 
    private sub ModArray(ByRef arName as Variant)
 
eine Funktion mit Rückgabewert Variant gemacht.
 
   private  <font color=green>Function</font> ModArray(ByRef arName as Variant) _
     <font color=red> As Variant</font>
 
Und dann funktioniert es, auch der Funktion das Array zuzuweisen.
Genauer - damit wird der Parameter wirklich ByRef übergeben.
 
Wenn das einer versteht, melde er sich doch mal.....