Excel 2007 - absolutní hodnota

Podle http://pc.poradna.net/q/view/780701-excel-2007-fun kce-kdyz jsem si upravil makro a funguje bezvadně. Přepisuje záporné hodnoty čísel, ty čísla jsou záporná, vlastně to přepisuje text, není to formátováno jako číslo. Jde nějak udělat v makru nebo formátováním buněk aby byly zapsaný jako kladná?
Zkoušel jsem to v makru i formátováním buněk, ale nějak mi to nevychází. Možná něco jako fce HODNOTA a pak ABS(), ale nevím jak to zapsat do makra.
Tady je ta část makra:

Cells(i, 2).Copy
List4.Activate
List4.Cells(Cells(1000, 1).End(xlUp).Row, 2).Select
Selection.PasteSpecial Paste:=xlPasteValues
Selection.NumberFormat = "# Kč"
List2.Activate

Prostě to zkopíruje záporné číslo jako záporné. Jasně tak to makro je napsaný. Já bych ale potřeboval aby mi to např. z -10 Kč udělalo 10 Kč. Ta hodnota -10 Kč je formátovaná jako text a na tom Listu2 nemůže být formátována jako číslo nebo měna. Nevím jestli je to důležitý.
Na Listu4 bych to ale potřeboval mít zformátované tak aby s tím šlo dále počítat.

Dík

Předmět	Autor	Datum
Tak jen takový pokus, snad Ti to bude fungovat. Hodnota = Cells(i, 2).Value Cislo = Abs(Hodnota) Li… Siki83 11.03.2012 15:03	Siki83	11.03.2012 15:03
Moc dík, funguje to skvěle. :-) Pak 11.03.2012 18:06	Pak	11.03.2012 18:06
Teď koukám že já v tom makru nemám ty proměnné: Hodnota As Long Cislo As Long Ono to funguje i bez… Pak 18.04.2012 18:27	Pak	18.04.2012 18:27
Deklarace nen nutná, pokud ji nemáš vynucenou - option explicit poslední Jan Fiala 18.04.2012 21:38	Jan Fiala	18.04.2012 21:38

Tak jen takový pokus, snad Ti to bude fungovat.

Hodnota = Cells(i, 2).Value
Cislo = Abs(Hodnota)
List4.Activate
List4.Cells(Cells(1000, 1).End(xlUp).Row, 2).Select
Selection.Cells.Value = Cislo
Selection.NumberFormat = "# Kč"
List2.Activate

Na začátek toho makra si deklaruj proměnné