Arbeitsblätter UND Diagrammblätter drucken

Private Sub cmdAbbrechen_Click()
Unload Me
End Sub

Private Sub cmdDrucken_Click()
Dim arrWks()
Dim iCounter As Integer, iCount As Integer
For iCounter = 0 To lstDrucken.ListCount - 1
If lstDrucken.Selected(iCounter) Then
Worksheets(lstDrucken.List(iCounter)).PrintOut
End If
Next iCounter
Unload Me
End Sub

Private Sub UserForm_Initialize()
Dim wks As Worksheet
For Each wks In Worksheets
If wks.Visible = True Then
lstDrucken.AddItem wks.Name
End If
Next wks
End Sub

Sind Diagrammblätter vorhanden, sollte es mit Sheets statt Worksheets gehen. Wer kann bitte helfen.
Gruss thomas