Hiden Sheet kopieren -> naam geven en niet meer hidden zetten

[caffie]

Ik heb een "test" sheet gemaakt (de staat hidden)
Deze wil ik kopiëren en de naam aanpassen
De naam komt uit een inputbox
en dan moet de nieuwe sheet weer zichtbaar zijn
De test sheet moet wel hidden blijven


ik heb al wat

Sheets("test").Copy , Sheets(Sheets.Count)
ActiveSheet.Name = jaartal



maar deze doet nog niet wat ik wil
Wie kan me een stukje verder helpen.

 

[edmoor]

Doe het eens zo:

Application.ScreenUpdating = False
Sheets("test").Visible = True
Sheets("test").Copy after:=Sheets(Sheets.Count)
Sheets("test").Visible = False
ActiveSheet.Name = jaartal
Application.ScreenUpdating = True

 

[gast0660]

Zoiets met inputbox?

De naam komt uit een inputbox

Edit: de naam van het verborgen blad is Master.