Sheets auflisten
13.09.2002 13:34:32
Harry_W
Habe mir von der CD diesen Code herauskopiert.
Er funktioniert auch gut. Aber :
Ich will nur die Blätter aufgelistet haben die auch sichtbar sind.
Wie muß ich den Code ändern ?
Dim shAct As Worksheet
For Each shAct In ThisWorkbook.Worksheets
lstSheets.AddItem shAct.Name
Next shAct
mfg
Harry_W