I found this bit of code in an earlier post from sportsguy and have had no
luck whatsoever getting it to work. It does activate MsPaint but the paste
process goes nowhere seemingly.

Public Sub Paste2Paint()

On Error Resume Next

Dim ActivatePaint
ActivatePaint = Shell("c:\WINNT\system32\mspaint.exe", 1)
ThisWorkbook.Activate
Range("ExecutiveSummarywFcst").Select
Application.CutCopyMode = False
Selection.Copy
AppActivate ActivatePaint

SendKeys "^V"
SendKeys "^S"


End Sub


Obviously something else is needed but I cannot find it. Any help will be
greatly appreciated.
--
Best wishes,

Jim