方法

次のこと教えて下さい。 シートの下部に並んだシート名（cheet1 cheet2 cheet3) を　別セルに名前を転記したいのですが For I = 1 To 18 On Error Resume Next Sheets(I).Select SHET(I) = Application.ActiveSheet.Name ' 現在開いているシート名を取得す ' Sheets("メニュー").Cells(3 + I, "AS").Value = SHET(I) 　　　　　Next i 　　 で作ってみたのですが、シートの順位を変更・新シートを挿入すると 転記した順位が狂ってきます　　のでうまくいきません