drei dimensionales Feld

Hallo zusammen,
kann mir da jemand bitte weiterhelfen.
Ich bekomme unter "Cells" eine Fehlermeldung: falsche Anzahl an Argumenten....

Sub DatenfeldDreidimensional()
Dim T(1 To 7, 1 To 3, 1 To 31) As Integer              ' mit drei unterschiedlichen  _
Temperaturwerten, an drei verschiedenen Orten.
Dim i As Integer, d As Integer, k As Single
'Range("A1:C10").Clear
ThisWorkbook.Worksheets("Tabelle9").Activate
Randomize
For i = 1 To 7
For d = 1 To 3
For k = 1 To 31
T(i, d, k) = Rnd() * 10 + 35
Cells(i, d, k).Value = T(i, d, k)
Next k
Next d
Next i
End Sub