Erro em tempo de execução '9'

Question

Boa noite, estou tentando fazer uma validação para login e senha no vba, ele buscara as informações numa planilha, mas ele não executa pois da um erro de tempo de execução e não consigo entender esse erro. Gostaria que vocês pudessem me dar um help.

Código:

Private Sub BtnEntrar_Click()

If txtUsuario = "" Then
    MsgBox "Digite o seu email!", vbInformation, "ERRO!"
    txtUsuario.SetFocus
ElseIf txtSenha = "" Then
    MsgBox "Digite sua senha", vbInformation, "ERRO!"
    txtSenha.SetFocus
End If

    Dim valido As Boolean
    
    Do
        
        Worksheets("Plan1").Range ("A4:A") _ linha do erro
        If SearchValue = txtUsuario.Value Then
        
            If Not c Is Nothing Then
            firstAddress = c.Address
            Do
            nextAddress = c.Address
            Loop While Not c Is Nothing And c.Address <> firstAddress
            End If
            valido = True
        Else
            MsgBox "Email incorreto", vbInformstion, "Erro!"
        End If
        
        Worksheets("DadosLogin").Range ("B4:B")
        If SearchValue = txtSenha.Value Then
        
            If Not s Is Nothing Then
            firstAddress = s.Address
            Do
            nextAddress = s.Address
            Loop While Not s Is Nothing And s.Address <> firstAddress
            End If
            valido = True
            TelaPrincipal.Show
        Else
            MsgBox "Senha incorreta", vbInformstion, "Erro!"
            valido = False
        End If
    Loop Until valido = True
End Sub

Answer 1

Boa noite Álvaro. Qual a intenção da linha onde você aponta o erro? Além disso note que a sintaxe está errada, faltando um número após o "A":

 Worksheets("Plan1").Range ("A4:A") _ linha do erro

---

Filipe Magno