Screen Shot Paste

Sub macro_1()
Application.SendKeys "{PrtSc}"
ActiveSheet.Paste
End Sub

Not sure if VBA can take a screenshot without sendkeys. Didn't really look very hard.

Thanks for reply

But sorted it out now, code was just in the wrong order already using Screen Shot code

Application.SendKeys "(%{1068})"
DoEvents

Which works. but again interaction sparks a thought i might not of had, maybe

Ok Cheers

Learning all the time : )

Mike