シートがあるか

sub シートがあるかどうか()

dim 探すシート　as string
dim 全シート as worksheet

探すシート=range(“b3″).value

for each 全シート in worksheets

if 全シート.name=探すシート　then

msgbox 探すシート&”シートはあります”

exit sub

end if
next
msgbox “探しているシートはありません”

end sub