Nur Daten von eingeblendeten Blättern verarbeiten

wie muß ich folgenden Code verändern, damit nur von den eingeblendeten Blättern und nicht auch noch von den ausgeblendeten Blättern die Daten verarbeitet bzw. kopiert werden? Geht das überhaupt ?

i = 0
For Each Sh In ActiveWorkbook.Worksheets
If Sh.Name <> "deck" And Sh.Name <> "hinweis" Then
Sheets("deck").Cells(27, 12 + i).Value = Sh.Name
Sheets("deck").Cells(28, 12 + i).Value = Sh.Cells(7, 8).Value
i = i + 1
End If
Next

Gruß
Franz