Showing posts with label Print all name ranges and its source. Show all posts
Showing posts with label Print all name ranges and its source. Show all posts

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 No comments:
Labels:
Subscribe to: Posts (Atom)

Import data from SQL

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

  • Export Range in Json Format
    Macro to Export Range in Json Format Option Explicit Sub export_in_json_format()     Dim fs As Object     Dim jsonfile     Dim rangetoex...
  • Running SQL Queries within Excel Environment
    If you want to run SQL queries within Excel environment without  connecting to any database, you can do it with creating the ADODB   conn...