Vba 使用活动单元格查找范围名称

我是VBA编程的初学者

我有一个单元格是命名区域的一部分。使用该活动单元格，我希望能够找到该单元格所属的范围，并将其作为范围对象传递到VBA函数或子例程中

是否有人能为我提供如何进行的指导，或者这是不可能的

---

提前谢谢

下面是一个简单的例子

该代码检查所选单元格是否属于命名范围。如果是，则将命名范围传递给函数：

Sub Main()
    Dim nm As Integer

    For nm = 1 To ActiveWorkbook.Names.Count
       If Not Intersect(Selection, Range(ActiveWorkbook.Names(nm).Name)) Is Nothing Then
            Debug.Print MyFunc(Range(ActiveWorkbook.Names(nm).Name)) // Prints TRUE or FALSE
       End If
    Next nm
End Sub

Function MyFunc(Named_Range As Range) As Boolean
    MyFunc = Named_Range.Cells.Count > 2  ~~>Courtesy of `Thomas Inzina`
End Function

---

单个单元格可以是多个区域的一部分，是否要列出所有区域？或者，您可以使用：MyFunc=Named_Range.Cells.Count>2是否也要检查单个单元格命名区域？并忽略

打印区域

和

\u过滤器数据库

范围？我就不多说了——你说了一个简单的例子，所以说明了需要的过程。：）