指定シートの有無を確認

質問

指定したシートの有無を確認するVBAを作っているのですがうまく作動しません。
Sub dummy()

Dim dummy
Dim sheetname As String
sheetname = Sheets("入力").Cells(1, 1).Value　'←『入力』というシートのセルA1と同じ値のシート名
On Error Resume Next
Set dummy = sheetname
If Err.Number = vbnomal Then flag = True
On Error GoTo 0
If flag Then
Msgbox "シートがあります"
Else
Sheets("原紙").Copy before:=Sheets(1)
Worksheets(1).Name = sheetname

End Sub

補足：入力というシートのA1に値が入っており、その値と同じシートがあればメッセージが出る、無ければ『原紙』というシートをコピーしてコピーしたシートのタブにA1の値を表示する

回答No.1

watabe007 · ベストアンサー

参考に
Dim sheetname As String
Dim sh As Worksheet

sheetname = Sheets("入力").Cells(1, 1).Value
On Error Resume Next
Set sh = Worksheets(sheetname)
On Error GoTo 0
If Not sh Is Nothing Then
MsgBox sheetname & "は、有ります。", vbInformation
Else
Sheets("原紙").Copy before:=Sheets(1)
Worksheets(1).Name = sheetname
End If

お礼

ありがとうございました。
思いどおりになりました。

回答No.2

myRange

>Dim sheetname As String
>Set dummy = sheetname

Sheetnameはただの文字列なので
　　Set dummy = Sheets(sheetname)　としないといけない。

変数flagもErr.numberを利用すると不要になります。

で、質問者のコードをそのまま使うとすると。。　

'--------------------------------------
Sub Test()
　　Dim Dummy As Worksheet　'●ちゃんと型宣言する
　　Dim SheetName As String

　　SheetName = Sheets("入力").Cells(1, 1).Value

　　On Error Resume Next

　　Set Dummy = Sheets(SheetName)

　　　　If Err.Number = 0 Then
　　　　　　MsgBox "シートがあります"
　　　　Else
　　　　　　Sheets("原紙").Copy Before:=Sheets(1)
　　　　　　Sheets(1).Name = SheetName
　　　　End If

　　On Error GoTo 0
End Sub
'---------------------------------------

以上です。

お礼

ご親切な対応ありがとう御座いました。
スムーズに解決いたしました。