Gem, Savechanges:=False

Prøv lige at vise din kode, som den ser ud nu, så er det nemmere at fortælle hvad du skal ændre ....

Ser nogenlunde sådan her ud:

fileToOpen = Application _
    .GetOpenFilename("Text Files (*.htm), *.htm")
If fileToOpen <> False Then
    Workbooks.Open Filename:=fileToOpen
    End If

    Sheets("Valutarisiko").Select
    Cells.Select
    Selection.Copy
    Range("A1").Select
   
    Windows("registrerede aktiver.xls").Activate
    Sheets("Ark2").Select
    Cells.Select
    Range("A2").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A2:E2").Select
    Sheets("Ark3").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    Selection.Consolidate Sources:=Array( _
        "'Ark2'!R1:R65536" _
        ), Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False

Det er en gammel kode jeg har arbejdet videre på - som det er nu, er det "Registrerede aktiver" der er aktiv - men jeg skal lukke den anden som jeg starter med at åbne! Mine koder ligger i "registrerede aktiver" (Har ikke ryddet op i koden - så undskyld hvis den er uoverskuelig)

Dim ws As Workbook    'ny linie
fileToOpen = Application _
    .GetOpenFilename("Text Files (*.htm), *.htm")
If fileToOpen <> False Then
    Set ws = Workbooks.Open(Filename:=fileToOpen)    'ændret
    End If

    Sheets("Valutarisiko").Select
    Cells.Select
    Selection.Copy
    Range("A1").Select
   
    Windows("registrerede aktiver.xls").Activate
    Sheets("Ark2").Select
    Cells.Select
    Range("A2").Activate
    ActiveSheet.Paste
    Application.CutCopyMode = False
    Range("A2:E2").Select
    Sheets("Ark3").Select
    Cells.Select
    Selection.ClearContents
    Range("A1").Select
    Selection.Consolidate Sources:=Array( _
        "'Ark2'!R1:R65536" _
        ), Function:=xlSum, TopRow:=False, LeftColumn:=True, CreateLinks:=False
    ws.Close savechanges:=False  ' ny linie

Perfekt - ja, lidt ret fik jeg! For det kan kun skyldes stres at jeg ikke tænkte lidt længere!

Tak, smid et svar - og så skal jeg ellers til at rydde op!

Ok, her er svaret. Synd med den stress :-)