Nefunguje co? Kde? Jak se to projevuje? Nějaká chyba?
Člověče, chceš pomoct a prozradíš toho ještě míň, než partyzán při výslechu!
Tip: nenechal jsi v tom kódu podmínku
If Target.Address = "$F$5" Then
?Mimochodem - deklarace proměnné až za podmínkou je teda pěkná prasečina...
A ještě pozor - jak jsem se ještě kouknul, událost Worksheet_Calculate nedokáže rozeznat, jaká buňka se změnila! Musíš si tedy nějak sám ošéfovat, že se změnila právě ta buňka, kterou chceš hlídat...