[[20090408203603]]　『特定のシート名を一番前に左に移動したい』（いっちー）　ページの最後に飛ぶ

『特定のシート名を一番前に左に移動したい』（いっちー）

シートが１００枚ちょいあるエクセルファイルで特定の名前のシートを一番左に移動させたいのですが、

 If Sheets("▽▽▽▽") Is Nothing Then
    Sheets("●●●●").Select
    Sheets("●●●●").Move Before:=Sheets(1)
 Else
    Sheets("▽▽▽▽").Select
    Sheets("▽▽▽▽").Move Before:=Sheets(1)
 End If
としてみたのですが、ちっとも移動してくれません。どうしたらよいのでしょうか？

 こんばんは

 Sub ○を右に()  ’一番前
    Sheets("○").Move Before:=Sheets(1)
 End Sub

 Sub ○を左に()  '一番後
    scn = Sheets.Count
　　Sheets("○").Move After:=Sheets(scn)
 End Sub

となると思います。
（くぅ）

 すいません、間違えてました。右でなく一番左でした。
 ご指摘ありがとうございます。修正させていただきました。

解決しました。

 （いっちー）

コメント返信：

[ 一覧(最新更新順) ]

[[20090408203603]] 『特定のシート名を一番前に左に移動したい』（いっちー） ページの最後に飛ぶ

[[20090408203603]]　『特定のシート名を一番前に左に移動したい』（いっちー）　ページの最後に飛ぶ