インターネット学習帳

この広告は30日以上更新がないブログに表示されております。
新規記事の投稿を行うことで、非表示にすることが可能です。

Sub Sample()

　Dim myRng As Range
　Dim myNameStr As String
　Dim myName As Name
　myNameStr = "myArea"

　　On Error Resume Next
　　Set myName = Application.Names(myNameStr)
　　On Error GoTo 0

　　　If myName Is Nothing Then
　　　　MsgBox "定義されている名前はありません"
　　　　GoTo ErrHdl
　　　Else
　　　　On Error Resume Next
　　Set myRng = myName.RefersToRange
　　'Set myRng = Range(myNameStr) 'Rangeプロパティ使用
　　'Set myRng = [myArea] '範囲名直接指定

　　On Error GoTo 0
　　　If myRng Is Nothing Then
　　　　MsgBox "定義されている名前はセル以外を参照しています"
　　　　GoTo ErrHdl
　　　Else
　　　　myRng.Select '確認用
　　　　MsgBox myRng.Address
　　　End If

　　　End If

　　　Exit Sub

ErrHdl:
　　Set myRng = Nothing 'オブジェクトの解放
　　Set myName = Nothing

End Sub