so far I have:

[code]Sub test()
'
' test Macro
'
Dim fileName As String
Dim fileName1 As String
' prompt the user to get the name of the file(s) to open

fileName = Application _
.GetOpenFilename()

fileName1 = Application _
.GetOpenFilename()

' opens both files
Excel.Application.Workbooks.Open (fileName)
Excel.Application.Workbooks.Open (fileName1)

' format the cells
' to make sure they copy correctly
Range("B1:B26").NumberFormat = "Genral"

' for loop to get data

For i = 6 To 23
Select Case i
Case Is = 6 ' assign: net sales
%2