View Single Post
  #7   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Jarek Kujawa[_3_] Jarek Kujawa[_3_] is offline
external usenet poster
 
Posts: 37
Default Map of used names?

On second thought I would not recommend this solution
names might sometimes mess up with worksheet names as worksheets may be
named same as names and vice versa

thus this macro might lead to weird results

sorry

Użytkownik "Jarek Kujawa" napisał w wiadomości
...
surely sb. will come up with a smarter solution but one way might be:

Sub cus()
Dim nazwa As String
Dim adres as String
Dim lista as String
Dim tekst_formuly as String
Dim i as Integer
Dim cell As Range

Dim ws As Worksheet

Application.ScreenUpdating = False
Application.Calculation=xlCalculationManual

For i = 1 To ActiveWorkbook.Names.Count

nazwa = Names(i).Name

For Each ws In ActiveWorkbook.Worksheets
ws.Activate

adres = ActiveCell.SpecialCells(xlCellTypeLastCell).Addres s

For Each cell In Range("A1:" & adres)
If cell.HasFormula Then
tekst_formuly = cell.Formula
If InStr(1, tekst_formuly, nazwa, vbTextCompare) Then
lista = lista & vbNewLine & nazwa & vbTab & ws.Name & "!" & cell.Address
End If
End If
Next cell

Next ws

Next i

MsgBox lista

End Sub


HIH

Uzytkownik "Michael.Tarnowski" napisal w wiadomosci
...
Hi Mike,
thanks for your tip. This gives a list of the definitions, but I'am
looking for a kind of list, in which cell of which sheet a name is
*used*. In other words, which cell is effected if a name definition is
deleted.
Michael

Mike H wrote:
hi,

Select a cell where you want the list then

Insert|Names|Paste and paste list

Mike

"Michael.Tarnowski" wrote:

Hi community,
is it possible - and if, how - to get a kind a map i.e. reference,
where defined names are used in a workbook?
Cheers Michael