mit for each für alle Checkboxen in UF ansprechen

Sub blanko_guv()
Dim cb As CheckBox
Application.ScreenUpdating = False
Sheets("blanko GuV").Visible = True
For Each cb In UserForm2
If cb.Value = True Then
Sheets("blanko GuV").Copy after:=Sheets(Sheets.Count)
With Sheets(Sheets.Count)
.Name = cb.Caption
.Cells(7, 1) = cb.Caption
End With
End If
Next
Sheets("blanko GuV").Visible = xlVeryHidden
Application.ScreenUpdating = True
End Sub