I am getting Run-time error -1004 (Paste method of Worksheet class failed).
Steps - I am copying data from one macro file to another file, Could you please resolve the issue.
Sub ABCD()
Dim Wb As Workbook
Dim bk As Workbook
Dim strFName As String
Dim ws As Worksheet
Dim sh As Worksheet
Dim shRng As Range
Set Wb = ThisWorkbook
Set ws = Wb.Sheets("Process")
strFName = ws.Range("B10").Value
Workbooks.Open Filename:=strFName
Application.Wait (Now + TimeValue("0:00:10"))
'>>>>For copying name
Workbooks("ABC6M.xlsm").Worksheets("Data").Range("B2").Copy
Windows("ITR6_V1.4.xlsm").Activate
Sheets("PART ").Select
Range("E10:E10").Select
ActiveSheet.Paste
Steps - I am copying data from one macro file to another file, Could you please resolve the issue.
Sub ABCD()
Dim Wb As Workbook
Dim bk As Workbook
Dim strFName As String
Dim ws As Worksheet
Dim sh As Worksheet
Dim shRng As Range
Set Wb = ThisWorkbook
Set ws = Wb.Sheets("Process")
strFName = ws.Range("B10").Value
Workbooks.Open Filename:=strFName
Application.Wait (Now + TimeValue("0:00:10"))
'>>>>For copying name
Workbooks("ABC6M.xlsm").Worksheets("Data").Range("B2").Copy
Windows("ITR6_V1.4.xlsm").Activate
Sheets("PART ").Select
Range("E10:E10").Select
ActiveSheet.Paste