erro de compilação era esperado function ou variável

[manarelli 0]

Galera, estou com a seguinte dúvida, caso alguém consiga me responder:

 

Eu digitei esse código, mas ele aparece a mensagem de erro de compilação e SELECIONA o "LINHA":

 

Private Sub Worksheet_Change(ByVal Target As Range)

Dim OutApp As Object

Dim OutMail As Object

Dim Corpo As String

Set OutApp = CreateObject("Outlook.application")

Set OutMail = OutApp.CreateItem(0)

LINHA = ActiveCell.Row - 1

If Plan3.Cells(LINHA, 4) = "E-Mail" Then

Corpo = "Prezado(a) " & Plan3.Cells(LINHA, 14) & "," & vbCrLf & vbCrLf & _

"A O.S. " & Plan3.Cells(LINHA, 7) & " aberta em " & _

Plan3.Cells(LINHA, 2) & " foi concluída." & vbCrLf & _

" Veja informações abaixo:" & vbCrLf & _

" Status: " & Plan3.Cells(LINHA, 6) & vbCrLf & _

" Ação tomada: " & Plan3.Cells(LINHA, 5) & vbCrLf & vbCrLf & _

"Atenciosamente," & vbCrLf & _

"Help Desk"

End If

With OutMail

.To = Plan3.Cells(LINHA, 2)

.CC = ""

.BCC = ""

.Subject = "Título do email"

.Body = Corpo

.Display 'Utilize Send para enviar o email sem abrir o Outlook

End With

On Error GoTo 0

Set OutMail = Nothing

Set OutApp = Nothing

End If

End Sub

End Sub

[KhaosDoctor 242]

O que é esse LINHA? Você instanciou ele ou algo do tipo?

[manarelli 0]

esse LINHA é uma chamada para o número da linha da célula foi alterada, entendeu?

[KhaosDoctor 242]

Mas você não instancia ela em lugar nenhum, ela é uma global?