write code to "click" buttons

[Lball]

I have a simple macro that opens files, copies the page, then pastes in a master doc. After, it closes the file it copied from. It repeats this for 10 different files, opening, copying to master, then closing original. When i run the macro i get those messages asking if i want to save info to clipboard or save changes to original file. Is there a line of code i can put in to choose the "NO" in each of these cases. I'm assuming i'd have to put it in the macro at the corresponding point in the code for when it happens when running.

All help is appreciated!

 

[Norie]

Just put this at the start of the code.

Application.DisplayAlerts = False

And this at the end.

Application.DisplayAlerts = True

It might also help if you post your code - these messages might be able to be avoided rather than just suppressed.

 

[Lball]

Here is a bit of the code. it was recorded. It goe on to open/copy 6 other worksheets as wel

'Open Ratesheet download
    ChDir "M:\Rate Sheet"
    Workbooks.Open Filename:="M:\Rate Sheet\ROSS RATES NEW DOWNLOAD ONLY.xls", _
        UpdateLinks:=0
    'Open Citi 2nds copy and paste then close
    ChDir "C:\Documents and Settings\lballa\Desktop"
    Workbooks.Open Filename:= _
        "C:\Documents and Settings\lballa\Desktop\Citi 2nd.xls"
    Cells.Select
    Selection.Copy
    Windows("ROSS RATES NEW DOWNLOAD ONLY.xls").Activate
    Sheets("Citi 2nd").Select
    Cells.Select
    ActiveSheet.Paste
    Windows("Citi 2nd.xls").Activate
    ActiveWindow.Close
    'Open Citi copy paste and close
    Workbooks.Open Filename:="C:\Documents and Settings\lballa\Desktop\Citi.xls"
    Cells.Select
    Selection.Copy
    Windows("ROSS RATES NEW DOWNLOAD ONLY.xls").Activate
    Sheets("Citi").Select
    ActiveSheet.Paste
    Windows("Citi.xls").Activate
    ActiveWindow.Close

THe "Master Doc" is password protected. Is there a way to put that in as well?

 

[Norie]

Which sheet is the master?

Dim wbMast As Workbook
Dim wbOpen As Workbook
    Set wbMast = Workbooks.Open(Filename:="M:\Rate Sheet\ROSS RATES NEW DOWNLOAD ONLY.xls")
        
    'Open Citi 2nds copy and paste then close

    Set wbOpen = Workbooks.Open(Filename:="C:\Documents and Settings\lballa\Desktop\Citi 2nd.xls")
    wbOpen.ActiveSheet.Cells.Copy wbMast.Sheets("Citi 2nd").Range("A1")
    wbOpen.Close
    
    'Open Citi copy paste and close
    Set wbOpen = Workbooks.Open(Filename:="C:\Documents and Settings\lballa\Desktop\Citi.xls")
    wbOpen.ActiveSheet.Cells.Copy wbMast.Sheets("Citi").Range("A1")
    wbOpen.Close

 

[Lball]

M:\Rate Sheet\Ross rates new downloads only