Thank you very much for answering and especially for the explanation of the "IFs".
In order to change the "there are no more than 20 page numbers per row"-limitation the only thing I have to do, is to change the number "20" this part: "With Rows(rw).Resize(, 20)", right?

Thank again!