Dzięki właśnie o to mi chodziło. Wszystko działa jak należy.

Witam, To ja jeszcze raz z podobnym problemem, tym razem prośba o pomoc przy przeróbce takiego makra(tworzy spis Arkuszy wraz z hiperłączami do Arkuszy): Sub Zrób_Listę_Hiperłączy_do_Arkuszy() Const Spis = "Spis arkuszy" Dim sh As Worksheet Dim w As Integer 'przejscie do arkusza ze spisem ...

Wielkie dzięki. Makro śmiga jak należy.

Witam, Mam takie makro, które działa pod excelem ale niestety nie moge go pod OO uruchomić: Sub ZmianaNazArkuszy() Dim arkusz As Object nazwa = InputBox("Podaj podstawową nazwę Arkusza" _ & ": ", "Rename Sheet", ActiveSheet.name) For Each arkusz In ActiveWorkbook.Sh...