tlačítko na vynulování buněk - excel 2003

[ciny]

Potřeboval bych v exel 2003 vytvořit tlačítko, na které když kliku, tak v buňkách (D5 a A15-A31) bude místo zapsaných hodnot hodnota 0. Nevíte někdo jak na to???
Předem děkuji za pomoc

[navstevnik]

Na prislusnem listu vloz tlacitko z nabidky Zobrazit>Panely nastroju>Ovladaci prvky a prirad udalostni proceduru ( v editoru VBA - Alt+F11 - vloz do modulu prislusneho listu):

Kód: Vybrat vše

Option Explicit

Private Sub CommandButton1_Click()
  Me.Range("d5, A15:A31").ClearContents
End Sub

PS.: a neco k VBA viz http://www.officir.ic.cz/excelentne.html dil II

[ciny]

funguje, díky moc