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.

3 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ń