codice:
Sub AggiungiNuovoFoglio()
'per ogni cella selezionata
For Each cella In Selection.Cells
'copia il fogli base
Sheets("base").Copy After:=Worksheets(Worksheets.Count)
'dacci il nome della cella
ActiveSheet.Name = cella

'Selection.Copy
'ActiveSheet.Paste
'Selection.Paste


Next
End Sub
LA SCHEDA SI CHIAMA "BASE", i dati "dati"
in a1 cè scritto Nome
a2 Citta
a3 voto
in b1 ci va il nome (es. Pippo)
in b2 la città
in b3 il voto