シートのセレクトのしかたを

質問

シートのセレクトのしかたを
　教えてください
　下記のようなマクロを途中まで作りましたが
　うまく動作しません
　メッセージボックスには
　Sheet8.Select　と表示されますが
　実際にシート８をセレクトしたいのです
　どの様に書けばよいのかお教え下さい

Sub Maco11()
Dim ex As String
Dim ey As String
ex = ActiveWorkbook.Sheets.Count
ey = "Sheet" & ex & ".Select"
MsgBox ey
' ここにどの様に書けば良いのでしょうか
End Sub

回答No.3

web2525 · ベストアンサー

複数存在するシートの一番右側でなく、シート名の一番大きなシートを選択したいってことなのかな？

その場合はシート番号ではなくシート名で指定することになります

例：
シート番号
Sheets(ex).Select　`ブック内のシートを左から数えてex番目のシートを選択

シート名
Sheets("Sheet" & ex).Select　`シートの位置に限らず該当する名前のシートを選択

ただしシート名で指定した場合、シート名を変更したりするとエラーになります

お礼

度々のお願いにもかかわらず丁寧な　回答有難うございました。
　希望していた一番大きなシートを　選択することが出来るようになり
　たすかりました。
　　　　有難うございました。

回答No.2

web2525

あ、変数exがStringで宣言されていましたね

最初の宣言時の
Dim ex As String
を削除すれば問題なく動作します

補足

再度の回答有難うございます
　現状でうまくいきましたが
　シートを一枚追加すると
　Sheet9(？？？)　一番最後にすると
　良いのですが他の位置にすると上手くいきません
　たびたびで恐縮なのですが
　MsgBox ey　での表示の様に
　Sheet9.Select　でそのシート
　行くようには出来ないものでしょうか？
　何度も申し訳ありませんが
　よろしくお願いいたします。

回答No.1

web2525

Selectメゾットで
ActiveWorkbook.Worksheets(ex).Select

補足

早速の回答有難うございます
　質問の仕方が上手に出来なくて申し訳ありません
　ActiveWorkbook.Worksheets(ex).Select
　ですと　実行時エラー'ｇ’：　　インデックスが有効範囲にありません。
　になります。
　　できれば Sheet8(00712)括弧内ではなく
　Sheet8でセレクト出来ればと思います
　かさねかさねですがよろしくお願いいたします。