wtorek, 27 listopada 2012

Nazwy wszystkich skoroszytów arkusza


Sub nazwyWszyskichSkoroszytowArkusza()

    For i = 1 To ActiveWorkbook.Sheets.Count
        Range("A1").Offset(i - 1, 0).Value = ActiveWorkbook.Sheets(i).Name
    Next i
    
End Sub

I wersja z możliwością zmiany statusu Visible dla arkusza.

4 komentarze:

  1. Nazewnictwo: http://office.microsoft.com/pl-pl/excel-help/wyswietlanie-skoroszytow-i-arkuszy-informacje-HP005198433.aspx

    powinno być nazwy wszystkich skoroszytów arkusza

    OdpowiedzUsuń
    Odpowiedzi
    1. arkuszy skoroszytu..

      Usuń
    2. dzięki za pomoc :D

      Usuń
  2. Czy jest możliwość zmodyfikowania kodu, aby ta lista była dynamiczna (uaktualniała się sama)? Teraz niestety po każdej zminie nazwy arkusza, bądź dodaniu nowego makro trzeba właczać na nowo.

    OdpowiedzUsuń