ｾﾙ範囲ｱﾄﾞﾚｽ文字列のﾁｪｯｸ

Public Function CheckAddr(ByVal StrAddr As String)
'
'ｾﾙ範囲ｱﾄﾞﾚｽ文字列（ex. A1:G10）のﾁｪｯｸ（実存する範囲か判定）
'
'引   数   StrAddr：ｾﾙ範囲文字列（ｼｰﾄ名を含んでも可）
'戻り値    正しいｾﾙ範囲：True
'          不正なｾﾙ範囲：False
   
    Dim MyRange As Range
   
On Error GoTo MyError
   
    CheckAddr = True
   
    If StrAddr <> "" Then
        Set MyRange = Application.Evaluate(StrAddr)  'RCｱﾄﾞﾚｽにも対応

    Else
        CheckAddr = False
        Exit Function

    End If
   
    Set MyRange = Nothing
    Exit Function

MyError:    '不正なｱﾄﾞﾚｽ
    Set MyRange = Nothing
    CheckAddr = False
   
End Function