Kod:
Dim sourceFileName As String
Dim sourceSheetName As String
Dim targetFileName As String
Dim targetSheetName As String
sourceFileName = "Company Sales Data.xlsx"
sourceSheetName = "Sales"
targetFileName = "ADO Video Code.xlsm"
targetSheetName = "CompanyOut"
Call ReadFromDifferentWorkbook(sourceFileName, sourceSheetName, targetFileName, targetSheetName)