Martin,

I am not at all sure what, how or where to start on this one. I have
never used the Dir statement. Could you help me out and explain a
little more detail for me?
I typically start out with the code stating something like this:
Sub getdata()
Dim CMAPReport As Workbook
Workbooks.Open Filename:=ThisWorkbook.Path & "\c1.htm"
Cells.Select
Selection.Copy
Windows("CMAP Report.xls").Activate
Sheets("Air Circ. Sidecaps").Select
Cells.Select
ActiveSheet.Paste
With Cells
..MergeCells = False
End With
Columns("B:C").ClearContents
Workbooks("C1").Close SaveChanges:=False

Would I need to re-do this section? or add-in? etc...

Thanks,

Hans