Run time error 1004

yonasan · #1 06-12-2012, 01:44 PM

I have a macro that works fine in excel 2007 but not in excel 2010:

Code:

Sub Synthese2(an1, an2, an5, LMainWB, LNewWB) 
    Dim Row, Row1, Row2, n, Col As Integer 
    Dim LNewWB2 As String 
     
    Call Module1.Copiervalue("Feuil1", "NomSc", "Exec Summary", "NomS") 
    Call Module1.Copiervalue("Feuil1", "_Sc2", "Exec Summary", "Scoller2") 
    Call Module1.Copiervalue("Feuil1", "_Sc3", "Exec Summary", "Scoller3") 
    Call Module1.Copiervalue("Feuil1", "_Sc4", "Exec Summary", "Scoller4") 
    Call Module1.Copiervalue("Feuil1", "_Sc5", "Exec Summary", "Scoller5") 
    Sheets("Exec Summary").Select 
    Application.Goto Reference:="A.Exercice" 
    ActiveCell.FormulaR1C1 = an1 
    If an5 <> CStr(0) Then 
        n = an1 - an2 - 1 
        Application.Goto Reference:="_Ref1" 
        Row1 = Application.ActiveCell.Row 
        Range("A" & CStr(Row1 + 1) & ":C" & CStr(Row1 + 3)).Select 
        Selection.Cut 
        Workbooks.Add 
        ActiveSheet.Paste 
        ActiveWindow.Close SaveChanges:=False 
        Range("A" & CStr(Row1 + 1) & ":C" & CStr(Row1 + 3)).Select 
        Selection.Delete Shift:=xlUp 
        Windows(LNewWB).Activate 
        Sheets("Exec Summary").Select 
        Application.Goto Reference:="_Ref2" 
        Rown = Application.ActiveCell.Row 
        Sheets("Exec Summary").Range("A" & CStr(Rown - an5) & ":C" & CStr(Rown - 1)).Select 
        Selection.Copy 
        Windows(LMainWB).Activate 
        Sheets("Exec Summary").Select 
        Application.Goto Reference:="Ref" 
        Row = Application.ActiveCell.Row 
        Selection.Insert Shift:=xlDown \\ The macro crashes here 
        Windows(LNewWB).Activate 
        Sheets("Exec Summary").Select 
        Sheets("Exec Summary").Range("A" & CStr(Rown - an5) & ":A" & CStr(Rown - 1)).Select 
        Selection.Copy 
        Windows(LMainWB).Activate 
        Sheets("Exec Summary").Select 
        Sheets("Exec Summary").Range("A" & CStr(Row)).Select 
        Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ 
        :=False, Transpose:=False 
        For i = 0 To an5 
            Sheets("Exec Summary").Rows(CStr(Row1 + 1 + i) & ":" & CStr(Row1 + 1 + i)).RowHeight = 350 
        Next i 
        Application.Goto Reference:="_Ref2" 
        Selection.Rows.AutoFit 
        If n > 0 Then 
            For i = 1 To n 
                Call Synthese.Cut 
            Next i 
        End If 
    End If 
End Sub

For some reason I cannot insert what is copied in the bold line. After running the macro, i cannot even insert a row myself without the error "cannot shift object off sheet"

Thanks

Colin Legg · #2 06-12-2012, 01:59 PM

Hi and welcome to the forum.

There are a number of things which can cause this error. Please can you attach your workbook to the thread?

yonasan · #3 06-12-2012, 02:40 PM

I would rather not as material contained within is confidential.
As mentioned, the macro is fine in excel 2007. I can tell you that whats being copied are embedded word documents from another file

Thanks

Colin Legg · #4 06-12-2012, 11:08 PM

Follow the steps here to see if it fixes it.

http://blog.contextures.com/archives...in-excel-2007/

If that fails you can always remove the confidential data and attach the workbook so we can help you.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
runtime error 1004	gbaker	Excel Programming	11	06-06-2012 05:23 AM
Word Visual Basic error - run time error 504	crazymorton	Word	11	01-13-2012 04:32 AM
Error:Power point can't readthe outline from time-world.ppt.No text converter is inst	aligahk06	PowerPoint	1	10-21-2011 03:48 AM
Run-time error 438	cksm4	Word	2	01-12-2011 03:41 PM
Word: The document 'Filename' caused a serious error the last time ...	martincruise	Word	0	02-25-2010 01:47 AM