możesz nazwę arkusza zmienić poprzez króciutki kod
sub zmiana()
Worksheets(1).Name = Range("a1")
end sub
Możesz oczywiście nadawać wielu arkuszom nazwy wykorzystując do tego
pętlę:
sub nazwa_grup()
for i =1 to worksheets.count
Worksheets(i).Name = Cells(i,1)
next i
end sub
powyższe makro przypisuje nazwy kolejnym arkuszom z pierwszej kolumny,
czyli arkusz1 otrzyma nazwe z komórki A1, arkusz 2 z komórki A2 itd.
--
Pozdr.
Cynio