Excel Erro de compilação: caractere inválido

[BiaMidori]

Olá, pessoal, boa noite

 

Estou tentando reproduzir a seguinte macro, mas estou encontrando erro. A macro em questão é esta na imagem abaixo, retirada no vídeo https://www.youtube.com/watch?v=yFqJCCEsi_Y&t=1249s ,16min: 

 

Contudo, quando eu copio a macro, o seguinte erro aparece:

 

 

 

Eu tentei resolver o problema não adicionando o & vbCrLf &_, contudo outro erro aparece: 

 

Alguém poderia me ajudar?? Estou já a dias tentando resolver o problema, mas não estou conseguindo... Abaixo o código:

 

Sub CreateDynamicComment()
Dim SelRow As Long
Dim CommText As String
With Plan1
SelRow = .Range("A4").Value
CommText = .Range("D" & SelRow).Value & vbCrLf &_
"Type " & Range("E" & SelRow).Value & vbCrLf &_
"Phone: " & Range("F" & SelRow).Value
.Range("E" & SelRow).ClearComments
.Range("E" & SelRow).AddComment
With .Range("E" & SelRow).Comment
.Text Text:=CommText
.Shape.Width = 200
.Shape.Height = 80
End With
End With
End Sub

[deejaywesley]

Bom dia @BiaMidori

 

tente assim:

Sub CreateDynamicComment()
Dim SelRow As Long
Dim CommText As String
With Plan1
SelRow = .Range("A4").Value
CommText = .Range("D" & SelRow).Value & vbCrLf & "Type " & Range("E" & SelRow).Value & vbCrLf & "Phone: " & Range("F" & SelRow).Value
.Range("E" & SelRow).ClearComments
.Range("E" & SelRow).AddComment
With .Range("E" & SelRow).Comment
.Text Text:=CommText
.Shape.Width = 200
.Shape.Height = 80
End With
End With
End Sub

 

aqui funcionou!

 

ps. suas imagens não abriram!

 

[BiaMidori]

Deu certo! Muito obrigada!