VBA Loops

Hi

The code below is a loop VBA macro i have which loops through a foder and finds all teh files which are in a list and then opens them and copies the data in Column E and pastes it into the next clean column.

However there is an if statement attachted to the loop which states that if there is a file which is not on the list to skip that fiel and go to the next one on the list. But i need to change this so it says if the file is not the list to skip the file but also leave a blank column and paste the data from the next file in the column next to the blank column.

so it looks like this:
d a Blank a a

  Sub Macro2()

Dim StrFldr As String
Dim ExtractCSV As Workbook
Dim ExtractCSVSheet As Worksheet
Dim lngWriteCol As Long
Dim Template As Workbook
Dim TemplateExtract As Worksheet
Dim LastRow As Long
Dim FromRow As Long
Dim FromFileName As String
Dim ToRow As Long
Dim TemplateList As Worksheet

'Application.DisplayAlerts = False
'Application.ScreenUpdating = False

Set Template = Application.Workbooks.Open("C:\Documents and Settings\SeymourJ\Desktop\Tasks\HondaExtractMacro\DealerData_Extract_Feed_Template.xls")
Set TemplateExtract = Template.Sheets("ExtractData")
Set TemplateList = Template.Sheets("Sheet1")

StrFldr = "C:\Documents and Settings\SeymourJ\Desktop\Test1\"

LastRow = TemplateList.Cells(Rows.Count, "C").End(xlUp).Row

lngWriteCol = 2

For FromRow = 1 To LastRow
    FromFileName = StrFldr & TemplateList.Cells(FromRow, "C").Value
    
    If Len(Dir(FromFileName)) > 0 Then
    Set ExtractCSV = Workbooks.Open(FromFileName)
    Set ExtractCSVSheet = ExtractCSV.Worksheets(1)

    ExtractCSVSheet.Range("E2:E2000").Copy Destination:=TemplateExtract.Cells(3, lngWriteCol)
    
    ExtractCSV.Close
    
    lngWriteCol = lngWriteCol + 1
    End If
Next

End Sub

Does anyone know how to do this?

Thanks

Jeskit

You just need to increment the write column whether the file exists or not:

For FromRow = 1 To LastRow
    
    FromFileName = StrFldr & TemplateList.Cells(FromRow, "C").Value
    
    If Len(Dir(FromFileName)) > 0 Then
    
        Set ExtractCSV = Workbooks.Open(FromFileName)
        Set ExtractCSVSheet = ExtractCSV.Worksheets(1)
        ExtractCSVSheet.Range("E2:E2000").Copy Destination:=TemplateExtract.Cells(3, lngWriteCol)
        ExtractCSV.Close
    
    End If

    lngWriteCol = lngWriteCol + 1

Next

Dom