Public Declare Sub keybd_event Lib "user32" _
(ByVal bVk As Byte, ByVal bScan As Byte, ByVal dwFlags As Long, ByVal dwExtraInfo As Long)
Public Sub Screen()
keybd_event vbKeySnapshot, 1, 0&, 0&: DoEvents '!
ActiveSheet.Range("B11").Select
ActiveSheet.Paste
End Sub