Run-time error '13'

[MarianaOliv]

Fiz uma rotina de VBA no excel que num trabalho está a dar muito bem mas no outro aparece um tipo de erro: Run-time error '13'

aqui está a rotina:

Sub NovoAluno()

indice = Application.Cells(1, 12)

número = InputBox("Por favor indique o número de aluno.", "Titulo da aplicação")
nome = InputBox("Por favor indique o seu nome.", "Titulo da aplicação")
morada = InputBox("Por favor indique a sua morada.", "Titulo da aplicação")
Telemóvel = InputBox("Por favor indique o seu telemóvel.", "Titulo da aplicação")
idade = InputBox("Por favor indique a sua idade.", "Titulo da aplicação")
data_nascimento = InputBox("Por favor indique a sua data de nascimento.", "Titulo da aplicação")
NIF = InputBox("Por favor indique o seu NIF.", "Titulo da aplicação")
Profissão = InputBox("Por favor indique a sua Profissao.", "Titulo da aplicação")
Correio_Electrónico = InputBox("Por favor indique o seu Correio Electrónico.", "Titulo da aplicação")
Curso = InputBox("Por favor indique o seu curso.", "Titulo da aplicação")
Código_Curso = InputBox("Por favor indique o Código do Curso.", "Titulo da aplicação")
Obsevações = InputBox("Por favor indique alguma observação.", "Titulo da aplicação")

Application.Cells(indice, 1) = número
Application.Cells(indice, 2) = nome
Application.Cells(indice, 3) = morada
Application.Cells(indice, 4) = Telemóvel
Application.Cells(indice, 5) = idade
Application.Cells(indice, 6) = data_nascimento
Application.Cells(indice, 7) = NIF
Application.Cells(indice, 8) = Profissão
Application.Cells(indice, 9) = Correio_Electrónico
Application.Cells(indice, 10) = Curso
Application.Cells(indice, 11) = Código_Curso
Application.Cells(indice, 12) = Obsevações





Application.Cells(1, 12) = Application.Cells(1, 12) + 1

End Sub

o erro está a vermelho, alguém pode ajudar-me?