Anexo planilha onde está acontecendo o erro

Boa tarde Lucélio,

Você deve setar as worksheets, apenas declara-las o VBE não consegue identificar qual é...

Código com erro no tópico:

Public Sub teste()
Dim sht     As Worksheet
Dim linha   As Long
Dim texto   As String

    Set sht = ThisWorkbook.Worksheets("Inicio") 'Nome da Sheet
    
    linha = 1
    Do Until sht.Cells(linha, "A").Value = ""
        linha = linha + 1
    Loop
    MsgBox linha - 1
    
    Set sht = Nothing
    
End Sub

Código com erro na planilha anexa:

Sub nova()
Dim sht     As Worksheet
Dim linha   As Long
Dim texto   As String

    Set sht = ThisWorkbook.Worksheets("Inicio") 'Nome da Sheet
    
    linha = 4
    texto = sht.Cells(linha, "A")
    MsgBox texto
    
    Set sht = Nothing
    
End Sub

Qualquer coisa da o grito.
Abraço

Boa tarde Bernardo, obrigado por sua resposta. Fiz o questionamento pois recebi uma planilha de um amigo que funciona sem apresentar erros. Tentei usar uma parte do código para fazer uma adaptação na minha planilha mas apresentou o erro. Desta maneira que você citou eu já havia feito e funcionou, porém gostaria de saber porque nesta planilha anexa não acontece o mesmo erro, pois o código é bem parecido.

Existem alguns procedimentos que dá pra resumir-mos o código.
Não gosto muito de utiliza-los (justamente por isso que está acontecendo agora).

Ainda mais quando se faz um código que se resume muito, abrevia muito e tudo...
Se precisar fazer alguma modificação depois de um tempo, não vai lembrar algumas coisas...

Seguinte...
A WorkSheet tem o nome e o codename.
O nome você verá lá em baixo ao abrir a planilha, o codename é interno... acredito que verá apenas no VBE...

No VBE, onde verá os "Objetos", "Formulários", "Módulos" e "Módulos de Classe", verá que ele renomeou os codenames das Sheets....

O VBA te permite utilizar, no lugar de WorkSheet("nome_da_planilha").range("a1"), você utiliza CodeName.range("a1")
A vantagem dessa utilização é que o usuário poderá modificar o nome da planilha (seja por pura inocência ou por maldade), que o código vai continuar funcionando... Já utilizando o nome, ferra todo o código.

Aaah, só a título de curiosidade... Já deve ter visto por aí... Mas aproveitando o assunto desses "atalhos" que o VBA permite e eu não gosto de utilizar, no lugar de utilizar range("A1"), utilize [A1].

Qualquer coisa da o grito.
Abraço