Copying cells from 194 workbooks

[oreo haven]

I have 194 Workbooks that all contain data on the first sheet only. I need to go into each sheet and pull the information from cell B6 and F21. That information needs to be copied to a new workbook into columns A and B so when I am done I have 194 lines in two columns.
Each of the workbooks I am pulling from have the info I need in Sheet1.

Is this possible, or do I need to do a lot of copying and pasting? If it is possible, how do I do it? DOes anyone have any ideas?

Thanks,

Jon

 

[jindon]

change to

Sub test()
Dim myDir As String, fn As String, n As Long
myDir = "C:\Documents and Settings\jsd\Desktop\400_TON\ALL SHEETS\"
fn = Dir(myDir & "*.xls")
Do While fn <> ""
    If fn <> ThisWorkbook.Name Then
        n = n + 1
        With Workbooks.Open(myDir & fn)
            With .Sheets(1)
                ThisWorkbook.Sheets(1).Cells(n, 1).Resize(, 2).Value = _
                Array(.Range("F21").Value, fn)
            End With
            .Close False
        End With
    End If
    fn = Dir
Loop
End Sub

<!-- / message -->