Spróbuj taki kod
Sheets("Arkusz2").Copy After:=Sheets(Sheets.Count)
With Sheets("Nazwa_arkusza") 'Nazwa arkusza w którym w komórce A1 jest zmieniana nazwa
If .Range("A1").Value <> "" Then ActiveSheet.Name = .Range("A1").Value
End With
Jeśli dobrze rozumiem problem nie będzie jeszcze działać zmiana w formule nazwy arkusza. Ale uporajmy się z bieżącym problemem.
Pozdrawiam |