After running the following, how do I keep the message of "Do you want to
keep the large amount..blah blah" Yes No Cancel?

Dim bk as Workbook
set bk = Workbooks.Open( Filename:="C:\temp\jul 07.xls")
bk.Worksheets(2).Range("B216:Y242").Copy

ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Thanks,
John

Application.CutCopyMode = False

John wrote:
After running the following, how do I keep the message of "Do you want to
keep the large amount..blah blah" Yes No Cancel?

Dim bk as Workbook
set bk = Workbooks.Open( Filename:="C:\temp\jul 07.xls")
bk.Worksheets(2).Range("B216:Y242").Copy

ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

Thanks,
John

Thank you!

John
"JW" wrote in message
ups.com...
Application.CutCopyMode = False

John wrote:
After running the following, how do I keep the message of "Do you want to
keep the large amount..blah blah" Yes No Cancel?

Dim bk as Workbook
set bk = Workbooks.Open( Filename:="C:\temp\jul 07.xls")
bk.Worksheets(2).Range("B216:Y242").Copy

ThisWorkbook.Activate
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:=
_
False, Transpose:=False

Thanks,
John