#眉標=Office 2007開發
#副標=Office 2007開發系列（5）
#大標=Excel開發必備關鍵物件（下）
#作者=文／沈炳宏

==<box>===========
程式1
  For Each name As Excel.Name 
in workbook.Names
    Console.WriteLine(
String.Format( _
      "{0} refers to {1}", 
name.Name, name.RefersTo))
  Next

==<end>==============




==<box>===========
程式2
Sub CheckCustomProperties()
 Dim wksSheet1 As Worksheet
 Set wksSheet1 = Application.ActiveSheet
 ' Add metadata to worksheet.
 wksSheet1.CustomProperties.Add _
 Name:="Market", Value:="Nasdaq"
 With wksSheet1.CustomProperties.Item(1)
　MsgBox .Name & vbTab & .Value
 End With
End Sub
==<end>==============






==<box>===========
程式3
Dim rng As Range 
Set rng = Range("A4").CurrentRegion
==<end>==============