Excel VBA で異なるシートの名前の範囲の参照方法について教えて

質問

Excel　VBA　で異なるシートの名前の範囲の参照方法について教えてください。
Sheet1には、入力規則で項目１と項目２をSheet2にある表からINDIRECT関数を使用して項目１のて、名前の範囲から、項目２が選択できるようになっています。
そのSheet2は非表示にしてあり、worksheets(2)など2枚目にあるとは限りません。シート名も決まったものではありません。その条件下で項目２がきちんと項目１の名前の中から選ばれているか確認したいのです。（項目２を選択してから、再度項目１を再度選択しなおすことが出来てしまうため。）
項目１と項目２の整合性を確かめるため、find関数を使用しようと考えていますが、これだとシート名を指定しなければなりません。名前の範囲からシート名を割り出す方法など何か良い手はないでしょうか。

それとセルに入力されたシート名を再表示するやり方が上手くいきません。どうしてなのでしょうか。↓
sub シート再表示()
dim sagyo as integer '←シート名「632」などの数値な為
set WBK2=Activeworkbook
sagyo=WBK2.worksheets(1).range("f5").value
On error goto jamp3
worksheet("sagyo").visible=true
　処理　sagyoが無かった場合、range("f6").valueの数値が入力されている（677など）を表示させたい
jamp3：
end sub

jamp3:
お手数ですがよろしくお願い致します。

回答No.1

aloha88600 · ベストアンサー

最初の質問は言っている意味がよくわかりません
もっと整理して書いてください

シートの再表示は

Sub シート再表示()
Dim sagyo As String
Dim Sh As Worksheet
sagyo = Worksheets(1).Range("f5").Value

For Each Sh In Worksheets
If Sh.Name = sagyo Then Sh.Visible = True
Next
End Sub

これだと対象シートがなくてもエラーにはなりません

シート名は文字列です　数字であろうが文字列です　ので型は　Stringです

set WBK2=Activeworkbook　　
変数の宣言をしていませんので代入できません

また、必ずActiveなブックでしかコードが実行されないので
これは不要です　

worksheet("sagyo").visible=true

WorkSheets(sagyo).Visible=True です
sが抜けてます　また変数に格納しているのになぜ””で囲ってsagyoという文字列に
しちゃうんですか？　””は不要です

お礼

ところどころ、誤ったコードを表記してしまい申し訳ありません。
セルに入力した文字列でシート名を指定できなかったのは、どうやら取り出したセルの文字列の
前後に空白があったようで、関数を使用してトリムしたら解決しました。
ありがとうございました。

補足

不特定のシート内にある名前の範囲を指定するのは無理かと思いあきらめました。