dim Sh as worksheet, r as range
Set R = Range("A5")
for each Sh in Sheets
R.value = Sh.name
set R = R.offset(1,0)
next