supress prompt for named ranges when copying sheet to new workbook

[neowok]

basically i am copying 10 charts from seperate workbooks into a ne
workbook using a macro. however those 10 workbooks have the same name
ranges in each, so when it copies each chart into the new workbook i
prompts that the named ranges already exist and asks yes to use th
source one or no to use the destination one.

now none of these named ranges are relevant because i have delinked th
charts from the chart data, but because theres 3 named ranges in eac
file, i have to click yes 30 times.

im sure there must be a way to bypass the query somehow or copy th
graph without the named ranges. the code im using for copying eac
graph over is

Set snagworkbook = Workbooks.Open("list - BM1.xls", False, True)
'Set snagworkbook = Workbooks.Opensnagworkbook.Charts("Sna
DelinkChartFromData
ActiveWorkbook.Unprotect
Sheets("Graph").Move
ActiveSheet.Name = "BM1"
Set chartworkbook = ActiveWorkbook
snagworkbook.Close False

it basically opens the source book as read only, moves the graph int
the new workbook then closes the source unsaved. works fine except fo
the prompting about the named ranges

 

[Dave Peterson]

application.displayalerts = false
'do your stuff/move
application.displayalerts = true