Аз бих направил макрос за записване на имената на листите в единия от листата... Например;

Sub Proba1()
Dim List1 As String, Broi As Integer
List1 = "DANNI" 'листа в който ще се записва
Broi = 1
For Each Element In ThisWorkbook.Sheets
If Element.Name <> List1 Then 'без текущия лист
Broi = Broi + 1
Sheets(List1).Cells(Broi, 1).Value = Element.Name
End If
Next
'може да потрябва по-нататъка - бройката на листите
Sheets(List1).Cells(1, 1).Value = Broi - 1
End Sub

И после ако искам в клетка А1 на всеки лист да "драсна" нещо - примерен код:


Sub proba2()
Dim I As Integer, Broi As Integer, List1 As String, List2 As String
List1 = "DANNI"
Broi = Sheets(List1).Cells(1, 1).Value
For I = 2 To Broi + 1
List2 = Sheets(List1).Cells(I, 1).Value
Sheets(List2).Cells(1, 1).Value = "Името на този лист е:" + List2
Next
End Sub

Ама ако не можеш писа макроси, хич не се сещам...Сигурно ще трябват много IF-ове да се нацвъкат един в друг...