i am creating a macro that transfer data from one workbook to another. i am getting a error please help. i have taken command button on workbook on b.xls which will run this.
Private Sub CommandButton1_Click()
Dim wkb1 As Workbook
Dim wknm As String
wknm = "d:\a.xlsx";
Set wkb1 = Workbooks.Open(wknm)
wkb1.Sheets("Sheet1").Range("A1:A8").Copy
ThisWorkbook.Sheets("Sheet1").Range("A1").Select
Selection.Paste
End Sub
Please help me find out what i am doing wrong
Thanks
aks619