Excel - Automatické přeformátování buňky se vzorcem

[pdsoul]

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?

[cmuch]

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.

[guest]

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

[pdsoul]

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

[cmuch]

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