Hallo zusammen,
kann mir da einer bitte helfen. Ich bekomme einen Laufzeitfehler "typen unverträglichkeit", kann ihn leider nicht finden.
Sub ForEachWorksheets()
Dim WS As Worksheets
Dim Ausgabe As String
Ausgabe = "Worksheets: "
For Each WS In ThisWorkbook.Worksheets
Ausgabe = Ausgabe & WS.Name & " "
Next WS
End Sub
Danke.
Damir
|