[INDENT]Private Declare Sub keybd_event Lib "user32" ( _[/INDENT][INDENT]byVal bVk As Byte, byVal bScan As Byte, byVal dwFlags As Long, _[/INDENT][INDENT]byVal dwExtraInfo As Long)[/INDENT][INDENT]Private Sub commandButton1_Click()[/INDENT][INDENT]keybd_event vbKeySnapshot, 1, 0&, 0&[/INDENT][INDENT]doEvents[/INDENT][INDENT]Range("A1").Select[/INDENT][INDENT]activeSheet.Paste[/INDENT][INDENT]End Sub[/INDENT]