Cant get Thisworkbook.activate to work

[samst]

Any idea why this code wont return to the original workbook?

Private Sub CommandButton1_Click()
Selection.Offset(1, 0).Select
Selection.Copy
Workbooks("PromoVendorTemplate.xlsx").Activate
ActiveSheet.Paste Destination:=Worksheets("Sheet1").Range("a2")
ThisWorkbook.Sheets("April").Activate
End Sub

Thanks!!!!

 

[RoryA]

You'd need to activate the workbook first, then the sheet. But you don't really need to do all that selecting:

Private Sub CommandButton1_Click()
Selection.Offset(1, 0).Copy Destination:=Workbooks("PromoVendorTemplate.xlsx").Worksheets("Sheet1").Range("a2")
End Sub