Thursday, March 24, 2011

Print all name ranges and its source

Sub name_rngs()
Dim x As Name
Dim z As String
i = 1
For Each x In ActiveWorkbook.Names
z = ""
Sheets(1).Cells(i, 1) = x.Name
z = Replace(x.RefersTo, "=", "")
Sheets(1).Cells(i, 2) = Replace(z, "$", "")
Sheets(1).Cells(i, 3) = Replace(x.RefersTo, "=", "")

i = i + 1
Next x

End Sub
at
Labels:

No comments:

Post a Comment

Subscribe to: Post Comments (Atom)

Import data from SQL

Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...

  • Copy Data from PDF to Excel Using Send-keys
    If you want to copy the data from pdf file to Excel. Sub method1_using_sendkey() Dim task ' open the file ' change the path of ...
  • Import data from SQL
    Macro to import data from SQL using ADO connection string: Sub Import_data_from_SQL() ' Tools -> References -> Microsoft Active...