マクロ セルに入力されたシートを選択する

なかなか理解出来ない初心者です。
セルに入力したシート名で、そのシートを選択するマクロの記述はどうするのでしょうか？
また、そのシートが選択された時にメッセージを出力したいです。
御指導お願い致します。

No.2 ベストアンサー 回答者： tom04 回答日時： 2012/11/02 14:07

こんにちは！

一例です。
Sheet1のA1セルにSheet名が入力してあるとします。

標準モジュールに

Sub test()
Dim str As String
str = Worksheets("Sheet1").Range("A1")
Worksheets(str).Select
MsgBox str & "を開きました。"
End Sub

こんなんではどうでしょうか？m（_ _）m

この回答へのお礼

回答ありがとうございました。
何となく変数を使用するんだろうなと思いましたが、記述方法が分からなくて・・・。
やっぱりマクロって難しい。

お礼日時：2012/11/03 00:31

No.4 回答者： JazzCorp 回答日時： 2012/11/03 07:08

オツムが足りないときは手を使う、これ必然のことナリ、

ワッカルかなぁ～、、、

この回答へのお礼

自分があほで理解出来ませんでした。
御手数を掛けさせて申し訳ありませんでした。オツムガ足りる様努力していきます。

お礼日時：2012/11/03 08:28

No.3 回答者： JazzCorp 回答日時： 2012/11/02 20:31

こぉ～んな、感じ、、、

Option Explicit
Sub ReferSheetName()
Dim xSheet As Worksheet
Dim xName As Variant
Set xSheet = Worksheets("Sheet2")
xName = xSheet.Range("A1").Value
Set xSheet = Worksheets(xName)
xSheet.Select
MsgBox (xSheet.Name & "を参照できます。")
End Sub

この回答へのお礼

回答ありがとうございました。
たぶん基本的な事だと思うのですが、このマクロってどこに記述したら動くんですか？いまいち分かりません。

お礼日時：2012/11/03 00:45

No.1 回答者： FEX2053 回答日時： 2012/11/02 13:02

A1セルに入力したシートを選択するとして

Sheets(Range("A1").Name).select
MsgBox(ActiveSheet.Name)

ですかね。未チェックなので間違ってるかもですが、
発想としてはこれで行けるはずです。

この回答へのお礼

回答ありがとうございました。
なんかダメでした。

お礼日時：2012/11/03 00:23