Hi all,
I am trying to copy a worksheet in one Excel workbook, to another Excel workbook. There is only 1 sheet in the source workbook that needs to be copied.
I found some examples in other forums, but I receive runtime error 9 - Subscript out of range when I run the code.
Code below:
Code:
Dim CopyFromBook As WorkbookDim CopyToBook As Workbook
Dim ShToCopy As Worksheet
Set CopyToBook = Workbooks("c:\temp\WF_Conversion_08-Mar-2023.XLSX")
For Each ShToCopy In Workbooks("c:\temp\WF_Conversion_BackPay_08-Mar-2023.XLSX").Worksheets
ShToCopy.Copy After:=CopyToBook.Sheets(CopyToBook.Sheets.Count)
Next ShToCopy
The error occurs in the "SET CopyToBook...." statement.
Any suggestions in what I am doing wrong?
Thanks