>>605
> エラーになるんですが
なぜエラーメッセージを書かないの？

>>608
数字でもダメでしょ
hako(i) = Worksheets("Sheet1").Range(1, 1).Value
になるだけだし