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
Subscribe to:
Post Comments (Atom)
-
If you want to add a new menu on mouse right click "Workbook Navigation showing you the list of all open workbooks and worksheets in ea... -
Macro to Export Range in Json Format Option Explicit Sub export_in_json_format() Dim fs As Object Dim jsonfile Dim rangetoex...
No comments:
Post a Comment