Combinación para una macro

Estimados tengo que cambiar la siguiente combinación para que funcione con excel 2003 pero no logro encontrar algo que me sirva, agradeceré puedan revisar y comentar.-

Application.SendKeys "^v"

Sub correo()
Range("b1:F35").Copy
Set parte1 = CreateObject("outlook.application")
Set parte2 = parte1.CreateItem(olmailitem)
parte2.To = Sheets("hoja1").Range("G4").Value
parte2.Subject = Sheets("hoja1").Range("G1").Value
parte2.Display
Application.SendKeys "^v"
Set parte1 = Nothing
Set parte2 = Nothing
End Sub

Añade tu respuesta

Haz clic para o