エクセル セルの値でシートを選ぶ

Question

入力シートB10セルの値のシートをアクティブにしたいのですが、
以下の式がうまくいきません

Dim str As String
str = Worksheets("入力シート").Range("B10")
Worksheets(str).Select
MsgBox str & "を開きました。"
End Sub

B10セルには数式が入っているのでそれが反応しないのでしょうか？
Worksheets(str).Select　の部分でエラーとなります。

B10セルがVLOOKの数式が入っています。

また、可能であれば、B10セルの値から、シート名ではなく、
B10セルから、各シートのA1セルと同一のシートを選択することは可能でしょうか？

初心者ですので、あまりよくわかっていませんが…
よろしくお願いします。

Comments

[torisan]

VLOOK は VLOOKUP という事で良いのでしょうか。
Excel2010 で再現性がありませんでした。

[mi07]

VLOOKUPです。値を確認することで解決できそうです。
シートを選択後、A列の最終行＋を選択して終わりたいのですが、
Cells(Rows.Count, "A").End(xlUp).Row + 1
をどのようにつなげばよいでしょうか？

[torisan]

無理やり繋げて
Cells(Cells(Rows.Count, "A").End(xlUp).Row + 1, 1).Select
でも良いのですが、下のサイトの
『最終セルの1つ下のセルを取得する』をお勧めします。
http://officetanaka.net/excel/vba/tips/tips130.htm

[mi07]

ありがとうございます！！大変助かりました！

Answer 1

＞Worksheets(str).Select　の部分でエラーとなります。

マウスポインタをstrに持っていくとstrの内容が表示されます。
strには何が入ってますか？

Comments

[mi07]

そうやって確認できるんですね！ありがとうございます、解決できそうです！