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

[stevebriz]

Sorry...not sure quite what you mean...do you want the message to come up or do you want to clear the clipboard?

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" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> 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
>