Problemas Com Vba - Excel

[baurets]

Olá, estou com um problema numa rotina que utiliza o While, ela executa a instrução até o Espaço do Nome ficar em branco, esta planilha contem o nome, nota e situação do aluno(nome), e praticamente, quando existe algum nome ele executa certo, porém quando alguma célula está sem nome, mas com nota, ele não lê, ele para a rotina.... ficaria assim:

Nome-------------Nota------------------Situação

Marcos-------------9--------------------Aprovado

Fabricio------------8--------------------Aprovado

---------------------9

Lucas---------------7

Então, se não tiver nada no nome, a rotina cessa, ela é mais ou menos assim:

Dim l as Integer

l = 2

While Range("A" & l).Value <> ""

media = Range("B" & l).Value

If media > 7 Then

Range("C" & l).Value = "Aprovado"

Else

Range("C" & l).Value = "Reprovado"

End If

l = l + 1

Wend

Como mostra a tabelinha, o Lucas e o espaço em branco ficam sem avaliação!!! Eu gostaria que fosse avaliado mesmo quando não tivesse nada no nome, porém sem avaliar todas as linhas!!!!! Talvez determinar a qtde de linha a ser avaliada, bem, não sei como resolver isto, se puderem me ajudar, agradeço...

[Graymalkin]

Acho que o ideal seria definir o fim da listagem com qualquer outra coisa, tipo "---FIM---". Dessa forma, bastaria mudar o While para:

While Range("A" & l).Value <> "---FIM---"

Certo?

Abraços,

Graymalkin