Díky za Tvůj čas, včera večer mi to nedalo a pokoušel sem se rozchodit změnu výplně alespoň pro jeden sloupec, bez úspěchu. Jen taková perlička - nakonec sem se na*ral a vše zkopíroval do novýho sešitu a hle. Změna barvy najednou fungovala. Vůbec netuším v čem byla bota.

Není to úplně ideální

Ba naopak je to úplně geniální všechno funguje tak jak sem si představoval a udělal si to jednodušeji, než sem se o to pokoušel já.

skutečné počty řádků a sloupců už si tam dolaď sám...

To už bylo to nejmenší, všechnu dřinu už si odved Ty

stačilo upravyt část kódu takto:

maxr = Selection.Rows.Count  
maxsl = Selection.Columns.Count  

a vrací to počet řádků a sloupců, které jsou obsaženy v "tiskové oblasti"

Ještě jednou díky
Siki