Costruendo un programmino in Excel che mi è stato richiesto...

Cerchiamo di organizzare il programmino che mi hanno richiesto in Excel...

Per prima cosa, il primo foglio valga da centralina di comando. Da questa centralina aggiungiamo semplicemente fogli alla cartella...

Il codice sarà ricavato dalla registrazione di una Macro...

Allora, ho un CommandButton sulla prima pagina (centralina) e voglio che questo mi aggiunga un foglio, me lo rinomini e me lo metta alla fine della serie di fogli, quindi la visuale deve tornare sulla centralina.

Ecco il codice che crea un foglio, lo chiama "carta" seguito da un numero progressivo e lo pospone a tutti gli altri fogli della cartella, tornando poi a focalizzarsi sulla centralina.

Const Centralina = "Foglio1"
Sub AggiungiFoglio()
    Sheets(Sheets.Count).Select
    Sheets.Add
    ActiveSheet.Name = "carta" & Sheets.Count
    ActiveSheet.Move After:=Sheets(Sheets.Count)
    Sheets(Centralina).Select
End Sub

Il codice è stato associato a un CommandButton che si trova sul foglio-centralina.

Primo obiettivo raggiunto: creazione di un nuovo foglio, rinomina del nuovo foglio e spostamento in coda agli altri.