Nem tudom, hogy viszed be Excelbe. Vegyük azt az esetet, hogy a kód az E1 cellába kerül.
Lapfülön jobb klikk, kód megjelenítése. Bejutottál a VB szerkesztõbe. A jobb oldalon kapott üres lapra másold be az alábbi kis makrót. A félövér 1 és 5 a sor, ill. az oszlop száma, ahova a kódod kerül.
Private Sub Worksheet_Change(ByVal Target As Range)