Copy-Paste from one workbook to another

[jahan reza]

During running a macro, I am facing a problem of popup message box, giving following message

“ There is a large number of information on the clipboard. Do you want to be able to paste the information into the another program?
-To save it on the clipboard so that you can paste it later, click YES
- To delete, click NO”[/color]This occurs during open an workbook and then paste it on another workbook, I have to click YES for multiple time for multiple Workbook, though all the files in the folder are in loop, and does not automatically paste.


::::
fileWay = filePath & “\”&nameoffile & ".xls"
Workbooks.Open FileName:=fileWay

Range("C4:D30").Select
Selection.Copy

ActiveWorkbook.Close

'Select Sheet for copy to
Sheets("Run Data").Select

'Select Range for
Range("N1").Select

'Paste from Clipboard to active sheet
ActiveSheet.Paste
::::


How to fix this problem?

 

[cherria]

I think you need this at the start
Application.DisplayAlerts = False

and this at the end

Application.DisplayAlerts = True

 

[stuartford]

if you just want this to be turned off try
Application.DisplayAlerts = False
at the start of your code then change false to true at the end


Stu