Tenho uma macro que copia uma planilha com formatação e tudo e coloca em uma nova planilha e posso renomeala, mas estou com dois problemas

1º depois que criei a nova planliha ela da um erro fecha tudo, mas não é sempre que acontece,

2º eu gostaria de poder escolher qual planilha copiar,

o código que uso é esse

'Copia a planilha atual e joga-a no final da guia de planilhas
Plan16.Copy After:=Sheets(Sheets.Count)

'Pede para o usuário dar um nome à nova planilha, ou melhor, à "planilha-cópia" !!!
NomePlan$ = InputBox("Digite o nome da planilha:", "Nome da planilha", ActiveSheet.Name)

'Coloca o nome digitado pelo usuário na planilha
If Len(NomePlan$) <> 0 Then ActiveSheet.Name = NomePlan$

a que puder me ajudar...

muito obrigado
Cleber Becker