Chcę skopiować arkusz i dodać go na końcu wszystkich bieżących arkuszy (niezależnie od tego, czy arkusze są ukryte).

Sheets(1).Copy After:=Sheets(Sheets.Count)
Sheets(Sheets.Count).name = "copied sheet!"

Działa to dobrze, z wyjątkiem sytuacji, gdy są ukryte arkusze, nowy arkusz jest wstawiany dopiero po ostatnim widocznym arkuszu, więcname polecenie zmienia nazwę niewłaściwego arkusza.

Wypróbowałem następujące warianty, aby uzyskać odniesienie do nowo skopiowanegoWorkSheet ale żaden nie był udany i / lub prawidłowy kod.

Dim test As Worksheet
Set test = Sheets(1).Copy(After:=Sheets(Sheets.Count))
test.Name = "copied sheet!"