Erro no sendkeys

[Raphael Menezes]

Boa tarde, estou tentando fazer um script que pega a informação de uma célula (C5), cola em outra célula (U5). Até aí tudo bem. Isso se faz necessário pois a célula C5 tem variáveis e na U5 eu já colo como valores. Em U5 eu aperto F2, seleciono tudo, copio e alterno a janela, para poder colar o conteúdo no whatsapp, para não ficar como imagem o que eu colar no whatsapp.

Eis o código:

Private Sub CommandButton1_Click()
Range("C5").Copy
Range("U5").PasteSpecial (xlPasteValues)
Range("U5").Select
SendKeys ("{F2}"), True
SendKeys ("^(a)"), True
SendKeys ("^(c)"), True
SendKeys ("{ENTER}"), True
SendKeys ("%({TAB})")
SendKeys ("^(v)"), True
End Sub

 

Sendo que antes de alternar a janela, ele meio que copia novamente a célula C5

É tanto que eu já deixei como comentário a linhas que dá o ALT TAB e o Colar e ele faz tudo certo, mas quando entra a linha onde tem: "SendKeys ("%({TAB})")" aí não funciona do jeito que gostaria.