[Erro em tempo de execução 424]

estou enfrentando problemas para executar esse codigo, ele detecta o vencimento de datas e me avisa por email quando faltar 30 dias para vencer, e esta me retorna este erro.

segue o codigo em anexo

 

 

 

 

 

 

Public Sub detectarvencimento()
Set sheet1 = Sheets("Planilha1")

Dim outApp As Object
Dim outMail As Object
Dim texto As String
Dim endereco As String

Set outApp = CreateObject("outlook.application")
Set outMail = putapp.createitem(0)

linha = ActiveCell.Row + 1

If Target.adrres = "$F$" & linha Then

If Controle.Cells(linha, 6) = "30" Then

texto = "Prezado Cliente " & Controle.cell(linha, 1) & "," & vbCrLf & "O seu Cetificado Digital vencerá em 30 dias. Favor entrar em contato conosco para a regularização." & vbCrLf & "Atenciosamente" & vbCrLf & "Access Contabilidade LTDA" & vbCrLf & "Telefone (035)3222-4705"

End If

endereço = Controle.Cells(linha, 1)
Set arquivo = ActiveWorkbook

With outMail
.To = "arthurferroni@gmail.com"
.CC = ""
.BCC = ""
.Subject = "Teste"
.Body = "texto"
.attachments.Add arquivo.FullName
.Disply 'Utilize Send para enviar o e-mail sem abrir o outlook
End With
On Error GoTo 0

Set outMail = Nothing
Set outApp = Nothing
End If

End Sub