Sheets auflisten

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