860to864: Schleife läuft nur zum Teil

Sub test()
Dim wksBlatt As Worksheet
Dim loLetzte As Long
For Each wksBlatt In ActiveWorkbook.Worksheets
loLetzte = wksBlatt.Range("D65536").End(xlUp).Row
wksBlatt.Range("A2") = wksBlatt.Name
Range("A2:A" & loLetzte).FillDown
Next wksBlatt
End Sub
Die Sheet-Namen werden in alle Sheets der Workbook eingetragen aber nur im activenSheet wird die Spalte ausgefüllt.
Was habe ich falsch gemacht?
Kann mir wohl jemand unter die Arme greifen?
Gruß Korl