Hi all,
I have been wrangling with this problem for a few months now. I have a spreadsheet that contains a couple of macros. Each of these macros i recorded in macro wizard, and essentially they go to another spreadsheet (already opened and in the same instance of excel (file>open)) grab a sheet of data and paste it back into the source. Now the problem is that they work brilliantly on my pc, but not on anyone elses.
I will attach the code below, But some things i have checked are:

1) the second file is opened in the same instance of excel using file>Open
2) we are using the same version of excel (2007)

One other possibly noteworthy point is that the files are on different network locations (i am sometimes opening them from USB, sometimes via VPN, with no issue, the others are directly on the network)

Would really appreciate any help on this, i thought i had it licked once or twice but unfortunatly it keeps coming back to haunt me, the downside being i have to do the work every month when the process is run!
Thanks again,
dave
Sub Grabfundreturns()
'
' Grabfundreturns Macro
' grab fund perf data
'
' Keyboard Shortcut: Ctrl+Shift+F
'
    Workbooks("Performance.xls").Activate
    Sheets("CLAF TABLE").Select
    Range("G36").Select
    ActiveWindow.SmallScroll Down:=-21
    Range("C8:H199").Select
    Selection.Copy
    Workbooks("Performance uploader v7.0.xlsm").Activate
    Sheets("CLAF TABLE").Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Workbooks("Performance.xls").Activate
    Sheets("IC TABLE").Select
    Range("E8:I219").Select
    Application.CutCopyMode = False
    Selection.Copy
    Workbooks("Performance uploader v7.0.xlsm").Activate
    Sheets("IC TABLE").Select
    Range("H15").Select
    Selection.End(xlUp).Select
    Selection.End(xlToLeft).Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Sheets("Control Sheet").Select
    Range("A1").Select
    Windows("Performance.xls").Activate
    Range("K50").Select
    Sheets("NEW CLASS B TABLE").Select
    Cells.Select
    Selection.Copy
    Windows("Performance uploader v7.0.xlsm").Activate
    Sheets("NEW CLASS B TABLE").Select
    Cells.Select
    ActiveSheet.Paste
    Cells.Select
    ActiveSheet.Paste
    Cells.Select
    Application.CutCopyMode = False
    Selection.Copy
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Range("E16").Select
    Application.CutCopyMode = False
    Range("F16").Select
    Sheets("Control Sheet").Select
    Range("C4").Select
End Sub