Excel中的区域，按照数据处理的意图，一般都是定义好名称的。
如何使用VBA代码，一次性获取所有区域的名称呢？
代码如下：希望对您有所帮助。
Function MyRangeName()
Dim N As Name
Dim C As Range
Dim TestRng As Range
On Error Resume Next
For Each N In ActiveWorkbook.Names
Msgbox N
Next N
End Function
知识扩展：
以下VBA代码功能，是一次性删除所有区域的名称。
Sub yu()
Dim n As Name
For Each n In ActiveWorkbook.Names
n.Delete
Next
End Sub