Shrnutí:

IF ElseIf jsem nahradil za select case

Podprocedury jsem zbavil "Call" a nahradil modul.makro

Úkony jsem přesunul do modulu

Zatím jsem nevyzkoušel vše, ale zdá se, že to funguje. Jdu otestovat ještě zbytek..

Každopádně mám poslední dotaz, který se týká právě podprocedur, které mají samostatné Suby.

rada: "A pokial su tie podprocedury samostatne Sub-y, tak ich skus volat bez "Call", jednoducho len menom."

To jsem také učinil, ale našel jsem jiné znění:

"Bude fungovat jen tehdy, pokud procedura ani modul nejsou nastaveny jako Private.

U modulu to tak je, ale procedura je Private Sub Worksheet_SelectionChange(ByVal Target As Range)

Takže teď nevím? ...po testu to jistě zjistím, ale nechci čekat...