Hi there,

Thank you very much for you help :) I had to tweak it slightly. But
otherwise it was great :) Thanks for your help again.

I am posting the code below which I hope might be of use to somebody
some day. Here I go -

.................................................
Private Sub CommandButton1_Click()

Dim i As Integer
Dim wb As Workbook
Dim outrng As Range

i = 1
Set fs = Application.FileSearch
Set wb = ThisWorkbook


With fs
..LookIn = "X:/"
..Filename = "*.*"
..SearchSubFolders = False
..Execute
For i = 1 To .FoundFiles.Count
Range("A" & i).Value = .FoundFiles(i)

'THIS IS TO COPY THE AMOUNT
Workbooks.Open .FoundFiles(i)
Worksheets(1).Range("B3").Copy
Workbooks(FileNameOnly(.FoundFiles(i))).Close
savechanges = False
With wb.Worksheets("Sheet1")
..Range("B" & i).PasteSpecial
Operation:=xlPasteSpecialOperationAdd
End With

Next
End With

End Sub


Function FileNameOnly(pname) As String
' Returns the filename from a path/filename string
Dim i As Integer, length As Integer, temp As String
length = Len(pname)
temp = ""
For i = length To 1 Step -1
If Mid(pname, i, 1) = Application.PathSeparator Then
FileNameOnly = temp
Exit Function
End If
temp = Mid(pname, i, 1) & temp
Next i
FileNameOnly = pname
End Function
.................................................

Harish Mohanbabu


--
Harish Mohanbab


------------------------------------------------------------------------
Harish Mohanbab's Profile: http://www.excelforum.com/member.php...fo&userid=6332
View this thread: http://www.excelforum.com/showthread...hreadid=392859