Try this :
Sub Compile()
On Error GoTo Err_Clear:
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim Fso As New Scripting.FileSystemObject
Dim Path As String
Application.FileDialog(msoFileDialogFolderPicker).Title = "Select Folder to
Pick Downloaded Bills"
App
Dear Vikas,
Please try through below link..
http://akoul.blogspot.com/search/label/Merge%20data%20from%20multiple%20sheet%20from%20multiple%20workbook%20to%20a%20workbook
On Fri, Aug 12, 2011 at 1:54 PM, vikas gupta wrote:
> Dear All
>
> Please give me the vba code or any other solution
