Makro na vseh listih

[jumanjy]

Pozdravljeni,
Imam makro BeforeClose ki se izvaja na vseh listih enako, zdaj pa bi v zvezek dodal en list kjer se pa naj nebi.

Koda: Izberi vse

Dim list
For Each list In WorkSheets

Tako se začne da ne pišem cele kode.
Ali je kaka enostavna možnost da makro "prepričam" da mi nov list izpusti, ali ga moram napisati za vsak list posebej, kar pa bi verjetno podalšalo izvajanje? Je mogoče možno, da bi namesto "For Each" nekako naštel imena listov?
Lp

[dragopre]

Pozdravljen
Vprašaj se: If list.Name = "NovList" Then ...

Lep pozdrav,
Drago

[jumanjy]

Pozdravljeni še enkrat,
Nikakor mi ne uspe pravilno vstaviti IF stavka. Poizkušal sem na spodnji način vendar deluje ravno nasprotno kot si želim se makro izvede samo na listu kjer se nebi smel .

Koda: Izberi vse

Sub Gumb1_Klikni()
Dim list
For Each list In Worksheets
If list.Name = "List2" Then
list.Range("B5").Value = Time()
list.Range("C5").Value = Date
End If

Next
'ActiveWorkbook.Save

End Sub

Bi vas prosil če mi lahko kdo pove kje sem naredil napako.
lp
Peter

[admin]

Zahtevali ste točno to, kar ste opisali, da se vam dogaja, torej:

Če si na listi 2 potem naredi to in to...

Morate pa zahtevati:

Če NISI na listu 2 potem naredi to in to...

Torej:

Koda: Izberi vse

Sub Gumb1_Klikni()
  Dim list

  For Each list In Worksheets
    If list.Name <> "List2" Then
      list.Range("B5").Value = Time()
      list.Range("C5").Value = Date
    End If
  Next
  
  'ActiveWorkbook.Save
End Sub

[jumanjy]

Najlepša hvala,
Sdaj se mi zdi seveda čisto logično.
Lep dan še naprej
Peter