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...