|
アクティブシートの中にあるかの確認だと思いますので、こんな感じで如何でしょうか。
解析して必要部分を使用すれば良いと思いますが・・・。
Sub NameChk()
Dim N As Integer
Dim Msg As String
Const ChkName = "sazaea" '<--- チェックする名前を指定
With ActiveWorkbook.Names
For N = 1 To .Count
If .Item(N).Name = ChkName Then Exit For
Next N
If N <= .Count Then
If InStr(Names(ChkName), "=" & ActiveSheet.Name & "!") = 1 Then
Msg = ChkName & " は、このシートにあります。"
Else
Msg = ChkName & " は、このシートにありません。" & _
String(2, vbLf) & Mid(Names(ChkName), 2, _
InStr(Names(ChkName), "!") - 2) & " にあります。 "
End If
Else
Msg = ChkName & " の名前は、この ブック には存在しません。"
End If
End With
MsgBox Msg, vbInformation
End Sub
|
|