Closing a File w/out Saving

[Littlemalky]

I'm not exactly sure what's wrong with my code. From what I can tell this is how I'm suppose to format the code, yet it stops at the "ActiveWorkbook.Close False" line and doesn't register. Anybody have any ideas?

Sub CopyCells()
    Workbooks("PRE-RELEASE.xlsx").Worksheets("Sheet1").Activate
    Cells.Select
    Selection.Copy
    Workbooks("PRE RELEASE SHEET " & Format(Date, "m.dd.yy") & ".xlsx").Worksheets("RELEASE").Activate
    Cells.Select
    ActiveSheet.Paste
    Range("A1").Select 'Resets starting point, and deselects worksheet
    Workbooks("PRE-RELEASE.xlsx").Activate
    [COLOR=red]ActiveWorkbook.Close False[/COLOR] 'Closes without saving changes
    Application.CutCopyMode = False 'Clears the clipboard
    'Application.Run ThisWorkbook.Name & "!" & "PreRelease_Bom_Scrub.PartsList" 'Signals next macro
End Sub

 

[MrKowz]

Try:

Sub CopyCells()
    Workbooks("PRE-RELEASE.xlsx").Worksheets("Sheet1").Cells.Copy _
        Destination:=Workbooks("PRE RELEASE SHEET " & Format(Date, "m.dd.yy") & ".xlsx").Worksheets("RELEASE").Range("A1")
    Workbooks("PRE-RELEASE.xlsx").Close SaveChanges:=False 'Closes without saving changes
    'Application.Run ThisWorkbook.Name & "!" & "PreRelease_Bom_Scrub.PartsList" 'Signals next macro
End Sub

 

[Littlemalky]

Thank you, that worked perfectly, and it shows how inexperienced I am because your code is so much more efficient.