Datenbereich für Diagramme über Makro

Private Sub ComboBox1_Change()
For i = 1 To Sheets.Count
If Sheets(i).Name = ComboBox1.Value Then Exit For
Next i
Sheets(i).Select
Dim chtChart As Chart
Dim intIndex As Integer
For intIndex = 6 To 25
If Sheets(i).Cells(intIndex, 32).Value = "" Then Exit For
Next intIndex
Set chtChart = Sheets("Charts").ChartObjects("Diagramm 4").Chart
chtChart.SetSourceData _
Source:=Sheets(i).Range(Cells(6, 32), Cells(intIndex - 1, 32))
chtChart.Axes(xlCategory).CategoryNames = _
Sheets(i).Range(Cells(6, 4), Cells(intIndex - 1, 4))
Set chtChart = Nothing
End Sub