Inkrementace aktivní buňky o 0.1

Dobrý den, prosím o radu. Potřebuju přičítat a odečítat 0,001 a 0,1 k aktuální buňce. Udělal jsem makro, přiřadil klávesovou zkratku. Když přičítám/odečítám celé číslo, vše je v pořádku. Jakmile je to třeba desetina, tak se cca po 40-ti přičteních/odečteních začnou měnit číslice na třeba desátém řádu. Nevíte prosím čím je to způsobeno, případně jak to ošetřit? Makro vypadá takto:
Sub inkrementace()
ActiveCell.Value = ActiveCell.Value + 0.1
End Sub
Sub dekrementace()
ActiveCell.Value = ActiveCell.Value – 0.1
End Sub