Hi,

I am very new to this so you will have to forgive me for asking a basic question! I want to copy and paste data from sheets without opeing them. I recorded the following macro myself:

'
    Sheets("Main Sheet").Select
    Windows("Data Base").Activate
    Sheets("Main Sheet").Select
    Range("D8:D10").Select
    Selection.Copy
    Windows("Data Book").Activate
    Range("D4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Windows("Data Base").Activate
    Application.CutCopyMode = False
    Sheets("Main Sheet").Select
    Range("D13:D14").Select
    Selection.Copy
    Windows("Data Book").Activate
    Sheets("Main Sheet").Select
    Range("G4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Application.CutCopyMode = False
End Sub
I know this can be done better as it causes my workbook to flash between screens very quickly and I have much longer ones that I run too which doesn't look good. I tried deleting the 'Activate' parts hoping that this would mean the page didn't open but this didn't work. I know this has a simple solution - but I don't know how to do it!

Thanks for helping

Lara