creacion de hojas en excel (problemas para escribir datos sobre la hoja cre

¡ Hola !
no tengo opciòn para responder pero ante esta pregunta la respuesta es la macro que sigue:

Sub Macro1()
Dim numHojas As Integer
Dim i As Integer
numHojas = InputBox("Ingrese Numero de hojas <35", "INGRESE")
For i = 1 To numHojas
Sheets.Add
ActiveSheet.Name = i & " - " & numHojas

Next i
End Sub