Why is there message that large amount of information on clipboard?

Hi
I am trying to write a VBA for copying worksheet from a workbook selected by user to current workbook. Name of current workbook is Test Template, copying to worksheet named 'SCHEDULE'. After copying, user will be directed to another worksheet named "MAIN". Why is there a message that large amount of information is on clipboard, asking user to save or delete the information?

My VBA looks like this:

Dim fNameAndPath As Variant, wb As Workbook
fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Set wb = Workbooks.Open(fNameAndPath)
   Cells.Select
   Selection.Copy
   Windows("TEST Template.xlsm").Activate
   Sheets("SCHEDULE").Select
   Cells.Select
   ActiveSheet.Paste
   Sheets("Main").Activate

wb.Close savechanges:=True 'or false
End Sub

Pl help. Thanks.

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here



(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

If not then disable alerts:

Dim fNameAndPath As Variant, wb As Workbook

Application.DisplayAlerts = False

fNameAndPath = Application.GetOpenFilename(FileFilter:="Excel Files (*.XLS), *.XLS", Title:="Select File To Be Opened")
If fNameAndPath = False Then Exit Sub
Set wb = Workbooks.Open(fNameAndPath)
   Cells.Select
   Selection.Copy
   Windows("TEST Template.xlsm").Activate
   Sheets("SCHEDULE").Select
   Cells.Select
   ActiveSheet.Paste
   Sheets("Main").Activate

wb.Close savechanges:=True 'or false

Application.DisplayAlerts = True

End Sub

Are you trying to copy whole sheet into another workbook?

if yes, use this (assuming TEST Template workbook is open:

Sub COPY_SHEET()
    ThisWorkbook.Sheets("Your sheet").Activate
    ThisWorkbook.Sheets("Your sheet").Copy After:=Workbooks("TEST Template").Sheets(1)
End Sub