Clear Clipboard

[JoeyGaspard]

Hi All, I am using the code below, and it works perfectly, but it is popping up the "Clear Clipboard" message box each time and it has to be clicked for the Routine to complete, what could I use to answer this automatically and finish the routine out?

Sub Get_Data_From_File()
Dim FileToOpen As Variant
Dim OpenBook As Workbook
Application.ScreenUpdating = False
FileToOpen = Application.GetOpenFilename(Title:="Browse for your file and Import range", FileFilter:="Excel Files (*.xls*),*xls*")
If FileToOpen <> False Then
Set OpenBook = Application.Workbooks.Open(FileToOpen)
'Edit Range Below
OpenBook.Sheets(1).Range("A1:I100").Copy
ThisWorkbook.Worksheets("PayDataw5").Range("A1").PasteSpecial xlPasteValues
OpenBook.Close False
End If
Application.ScreenUpdating = True
End Sub


Here is the message box I dont want the users to see:

Thanks in advance for any help!

 

[Fluff]

How about

ThisWorkbook.Worksheets("PayDataw5").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode=False
OpenBook.Close False

 

[JoeyGaspard]

How about

ThisWorkbook.Worksheets("PayDataw5").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode=False
OpenBook.Close False

Perfect as always! Thank you!

 

[Fluff]

You're welcome & thanks for the feedback.

 

[JoeyGaspard]

How about

ThisWorkbook.Worksheets("PayDataw5").Range("A1").PasteSpecial xlPasteValues
Application.CutCopyMode=False
OpenBook.Close False

One more wuick question, this line here where I choose the destination worksheet:
ThisWorkbook.Worksheets("PayDataw5").Range("A1").PasteSpecial xlPasteValues
Can I set that to where it just copies the data to the active sheet? I have 5 of those "PayDataw" (1-5) sheets, and I would like this macro to work on whichever one is open at the time?

 

[Fluff]

Just remove

ThisWorkbook.Worksheets("PayDataw5").

 

[JoeyGaspard]

When I remove that, it doesnt paste the data anywhere?

 

[JoeyGaspard]

Just remove

ThisWorkbook.Worksheets("PayDataw5").

When I remove that, it doesnt paste the data anywhere?

 

[Fluff]

It will paste the data into whatever sheet is the active sheet.