MS Excel

Mno - šílenostem se meze nekladou ;)))
activewindow.caption=" hodnota aktivní buňky je: " & activecell.Value

aha - mno teď mi to došlo - tohle asi nechcete, že. To bych se taky divil ;)))
Asi budete muset použít Before_Print ;))

ActiveSheet.PageSetup.LeftHeader = Range(XY).Valuecitovat

Dík za radu, ale není to to "pravé ořechové". ten soubor je pracovní plán pro 25 a více osob, kdy na každé straně (A3 na šířku)je 12 pracovníků. Když přidám nad stávající tabulku pár řádku abych docílil stejného vzhledu jako původní list se záhlavím, nevejde se mi při zobrazení 60% a více list na monitor. Při menším zoomu je už písmo nečitelné. V záhlaví je název měsíce a rok proloženým písmem. Zkoušel jsem pojmenovat každý list měsícem a rokem proloženým písmem a vložit název listu do záhlaví, což jde, ale názvy listů jsou tak roztažené že nejsou vidět všechny(otrava ). Jde mi o to, abych mohl změnou názvu jednoho listu (rok -př. 2 0 1 6) docílil změnu záhlaví všech 12(měsíčních)listů najednou a to tak že název listu "rok" spojím (concatenate)s názvem měsíce v listu "data" a toto potřebují dostat do záhlaví jednotlivých listů ( měsíců). Pokud to bude nutné připojím příště ukázku. Díky . ps. Dodržení současného vzhledu listu je podmínka ( ne moje ale nejvyššího ) .citovat