VB - Excel, otestování existence listu

[.Ka.Brnak]

Nazdar.
Potřebuji poradit.
V proměnné "m" mám názem příslušného listu a potřebuji zjistit jestli se tento list s tímto názvem v souboru existuje.

Aby řádek Worksheets(m).Cells .... neskončil chybou.

Díky.

[mikel]

Udělej to takhle:

Kód: Vybrat vše

check = False
For i = 1 To Worksheets.Count
  If m = Worksheets(i).Name Then check = True
Next i
If check Then Worksheets(m).Cells ...

Anebo ho nech skončit s chybou, ale využij ji:

Kód: Vybrat vše

...
On Error GoTo NOLIST
Worksheets(m).Cells ...
...
Exit Sub
NOLIST:
MsgBox "Tento list neexistuje"
End Sub