Devi inserire la riga "Print #1, Nominativo(Contatore);" all'interno del ciclo for!!!Prova quanto sotto

Ciao

Dim Contatore As Integer
Dim Numero_file As Integer
Dim Casella_messaggi As String
Dim Nominativo(1 To 5) As String

Open "C:\winnt\Profiles\MONTANINOC\Desktop\prova.xl s" For Output As #1
Casella_messaggi = MsgBox("Attenzione,il file di salvataggio è stato aperto")
For Contatore = 1 To 5
Nominativo(Contatore) = InputBox("Inserire nominativo")
Print #1, Nominativo(Contatore);
Next Contatore
Close #1