>>522
×strCEL_No = Chr(Asc("A") + i) & lngLineCnt
○strCEL_No = Chr(Asc("E") + i) & lngLineCnt + 4

ところでこのサンプルソースで動いたの?
いろいろ手直ししないと動かなかったんだけど。
俺がExcelXPのせいか?