K
KENNY
Still struggling to get the code below to start when I (or
Windows Scheduler) open the workbook where it resides. As
a newbie, feel free to point out the obvious!
TIA
Public Sub CopySourceData()
Dim wbs As Workbooks
Dim wbdest As Workbook
Dim wsdest As Worksheet
Dim wbsource As Workbook
Dim wssource As Worksheet
Dim varFileList As Variant
Dim lngIndex As Long
Dim lngIndexMax As Long
lngIndex = 0
lngIndexMax = 300
ReDim varFileList(lngIndexMax)
strFileName = Dir("B:\International Target
Customer\2004 ITC Downloads\*.xls")
Do While Len(strFileName) > 0
lngIndex = lngIndex + 1
varFileList(lngIndex) = strFileName
If lngIndex > lngIndexMax Then
blah blah.............
Windows Scheduler) open the workbook where it resides. As
a newbie, feel free to point out the obvious!
TIA
Public Sub CopySourceData()
Dim wbs As Workbooks
Dim wbdest As Workbook
Dim wsdest As Worksheet
Dim wbsource As Workbook
Dim wssource As Worksheet
Dim varFileList As Variant
Dim lngIndex As Long
Dim lngIndexMax As Long
lngIndex = 0
lngIndexMax = 300
ReDim varFileList(lngIndexMax)
strFileName = Dir("B:\International Target
Customer\2004 ITC Downloads\*.xls")
Do While Len(strFileName) > 0
lngIndex = lngIndex + 1
varFileList(lngIndex) = strFileName
If lngIndex > lngIndexMax Then
blah blah.............
