PC-HELP.CZ

Pro rozsah buňek, do nichž se vkládají data, mám pomocí VBS definováno takové přeformátování, že po změně v každé buňce se mi celý rozsah přeformátuje tak, že formát prvního znaku zůstává nezměněn a další čtyři znaky se změní na horní index:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim prepis As Range
Set prepis = Intersect(Target, Range("A1:AG33"))
If prepis Is Nothing Then Exit Sub
Call HorniIndex
End Sub

Sub HorniIndex()
Range("A1:AG33").Characters(Start:=1, Length:=1).Font.Superscript = False
Range("A1:AG33").Characters(Start:=2, Length:=4).Font.Superscript = True
End Sub

Neumím ale dosáhnout toho, aby se mi přeformátovaly také buňky, ve kterých je pouze vzorec.
Příklad:
Do A1 vložím p2,75 a pomocí výše uvedeného se mi buńka přeformátuje tak, že 2,75 je v uppercasu.
Mám buňku B1 (jen jako příklad, ve skutečnosti je to buňka v jiném listu téhož sešitu) se vzorcem =A1, takže se mi tam zobrazí p2,75.
Jak dosáhnu přeformátování výsledku p2,75 s uppercasem i v buňce B1?

Toto pokud vím tak nelze, třeba se pletu.
Když jsem to jednou potřeboval také tak udělat, musel jsem nakonec tu buňku kopíroval do místa kde jsem měl původně ten odkaz.

Tak teoreticky můžete zjistit předchůdce a následníky, tj. vzorcem se odkazující buňky (Dependents, Precedents).

Přiznám se, že tomuhle moc nerozumím...

Toto jsem také ještě nikdy nepoužil, ale něco je tady na řádku 47 a 52