Hi, Im using
If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv") <> "" Then
ActiveWorkbook.Worksheets.Add
Workbooks.Open Filename:= _
"I:\My Documents\Football Prediction\Soccer Predictions\data
2001\E0.csv"
Cells.Select
Selection.Copy
ActiveWindow.Close '------------------------
Workbooks("csvimport.xls").Activate
ActiveSheet.Paste
Application.CutCopyMode = False
End If
to open a workbook, copy the sheet and past to another workbook. At the
point of Activewindow.close I get 'large amount of data in clipboard do
you want to keep.....etc'. I choose yes, als ok. Is there a line of
code I can add to skip this.
Regards Robert

Try application.displayalerts = false



RobcPettit wrote:
> Hi, Im using
> If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
> 2001\E0.csv") <> "" Then
> ActiveWorkbook.Worksheets.Add
> Workbooks.Open Filename:= _
> "I:\My Documents\Football Prediction\Soccer Predictions\data
> 2001\E0.csv"
> Cells.Select
> Selection.Copy
> ActiveWindow.Close '------------------------
> Workbooks("csvimport.xls").Activate
> ActiveSheet.Paste
> Application.CutCopyMode = False
> End If
> to open a workbook, copy the sheet and past to another workbook. At the
> point of Activewindow.close I get 'large amount of data in clipboard do
> you want to keep.....etc'. I choose yes, als ok. Is there a line of
> code I can add to skip this.
> Regards Robert

Robert,

If below does not work try this link to Chip Pearson's site:
http://www.cpearson.com/excel/clipboar.htm

Hope one of these helps.

Alan
acampbell wrote:
> Try application.displayalerts = false
>
>
>
> RobcPettit wrote:
> > Hi, Im using
> > If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
> > 2001\E0.csv") <> "" Then
> > ActiveWorkbook.Worksheets.Add
> > Workbooks.Open Filename:= _
> > "I:\My Documents\Football Prediction\Soccer Predictions\data
> > 2001\E0.csv"
> > Cells.Select
> > Selection.Copy
> > ActiveWindow.Close '------------------------
> > Workbooks("csvimport.xls").Activate
> > ActiveSheet.Paste
> > Application.CutCopyMode = False
> > End If
> > to open a workbook, copy the sheet and past to another workbook. At the
> > point of Activewindow.close I get 'large amount of data in clipboard do
> > you want to keep.....etc'. I choose yes, als ok. Is there a line of
> > code I can add to skip this.
> > Regards Robert

Thanks for your reply that has solved the issue.
Regards Robert
acampbell wrote:
> Robert,
>
> If below does not work try this link to Chip Pearson's site:
> http://www.cpearson.com/excel/clipboar.htm
>
> Hope one of these helps.
>
> Alan
> acampbell wrote:
> > Try application.displayalerts = false
> >
> >
> >
> > RobcPettit wrote:
> > > Hi, Im using
> > > If Dir("I:\My Documents\Football Prediction\Soccer Predictions\data
> > > 2001\E0.csv") <> "" Then
> > > ActiveWorkbook.Worksheets.Add
> > > Workbooks.Open Filename:= _
> > > "I:\My Documents\Football Prediction\Soccer Predictions\data
> > > 2001\E0.csv"
> > > Cells.Select
> > > Selection.Copy
> > > ActiveWindow.Close '------------------------
> > > Workbooks("csvimport.xls").Activate
> > > ActiveSheet.Paste
> > > Application.CutCopyMode = False
> > > End If
> > > to open a workbook, copy the sheet and past to another workbook. At the
> > > point of Activewindow.close I get 'large amount of data in clipboard do
> > > you want to keep.....etc'. I choose yes, als ok. Is there a line of
> > > code I can add to skip this.
> > > Regards Robert