Estimados favor ayuda con esta macro no la puedo ejecutar en excel 2003

señores expertos tengo un problema, si pudieran revisar esta macro solo me esta funcionado con excel 2007 en 2003 no funciona

Sub correopesos()
Sheets("Hoja1").Unprotect "vvp2013"
Sheets("hoja1").Select
Range("b1:F35").Select
Selection.CopyPicture Appearance:=xlScreen, Format:=xlPicture
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
Sheets("solicitud en pesos").Protect "vvp2013"
Sheets("portada").Select
End Sub