After the past line add this Edgar
It will clear the clipboard

Application.CutCopyMode = False


--
Regards Ron de Bruin
(Win XP Pro SP-1 XL2000-2003)
www.rondebruin.nl



"Edgar Thoemmes" wrote in message ...
Another question relating to the import of some data from
another book.

After I have copied the data from the sheet I get the
messgage 'There is a large amount of data on the
Clipboard - Do you want to make this available to other
programs?

Is is possible for excel not to display this message.

I have tried application.screenupdating = false but this
is not working

Sub Import_Data()
'Imports data from Fname - Sheet (Test11) to Crystal_Table
Application.ScreenUpdating = False
If fname < "" Then
Range("a1").Value = fname
Set oWb = Workbooks.Open(fname)
oWb.Sheets("TEST11").Range("A1:AQ100").Copy
Windows("IMPORT.xls").Activate
Sheets("Crystal_Table").Select
ActiveSheet.Paste
Else
MsgBox ("Please select a Valid File")
End If
oWb.Close
Worksheets("Menu").Activate
Application.ScreenUpdating = True
End Sub