vba procedura excel

Se ena (zadnja) stvar v excelu me zanima. Zvezek ima list1, list2, list3.
Na listu1 imam gumb Button1. Nanj bi rad pripel proceduro, ki bi na list2 v celico A1 vpisal neko vrednost. Sam sem spisal sledeče a ne funkcionira:

sheets("list2").select
range("a1").select ----- v tej vrstici najde napako 1004
activecell.value="sobota"
sheets("list1").select

kaj delam narobe?

Sebastijan

ne vem . če tako procedure !posnamem! v makro dela prav, če pa isto proceduro prekopiram na Click_CommandButton1 pa zataji, oz. najde to napako 1004. Celice niso zaščitene, gre za čisto prazen zvezek pa ga tako lomi ,

Sebastijan

Zaradi vzroka se jaz ne bi preveč sekiral.

Kodo, ki jo imaš, spraviš v svojo proceduro in jo iz odzivne kličeš.

Private Sub CommandButton1_Click()
  krneki
End Sub

Sub krneki()
  Sheets("List2").Select
  Range("A1").Select
  ActiveCell.Value = "sobota"
  Sheets("list1").Select
End Sub

Ali pa ne selektiraš toliko. (že zgleda grdo)

Private Sub CommandButton1_Click()
  Sheets("List2").Range("A1").Value = "sobota"
End Sub