学习Excel技术，关注微信公众号：
excelperfect
在工作表中定义名称是一项很强大的功能，我们可以将定义名称的单元格区域看作一个整体，从而方便对其进行很多操作。在进行工作表数据处理时，很多人都会定义名称。
有时候，在分析工作表数据时，如果能够清楚地看出命名区域，将有助于我们了解工作表。下面的一小段程序可以将工作表中的命名区域添加红色背景色：
Sub SetNameRanges()
'声明变量
Dim rngName As Name
On Error Resume Next
'遍历当前工作簿中的名称
For Each rngName In ActiveWorkbook.Names
'将名称区域的单元格背景色设置为红色
rngName.RefersToRange.Interior.ColorIndex = 3
Next rngName
End Sub
如下图1所示，在工作表中定义了两个命名区域。
运行SetNameRanges过程，结果如下图2所示。
