|
こんばんは。
'===========================================
Sub test()
MsgBox exist_name("aaa", ActiveSheet)
End Sub
'==============================================================
Function exist_name(nm As String, sht As Worksheet) As Boolean
'指定された名前が指定されたシートにあるかをチェックする
'Input nm---名前 Sht---Worksheetオブジェクト
'out-----true:存在する False:存在しない
Dim rng As Range
On Error Resume Next
exist_name = False
Set rng = Application.Range(nm)
If Err.Number = 0 Then
If sht Is rng.Parent Then
exist_name = True
End If
End If
On Error GoTo 0
End Function
ポイントは Application.Range("aaa")
ApplicationのプロパティであるRangeです。
|
|