wbkNew.SaveAs Filename:= _ "C:\Documents and Settings\All Users\Desktop\" & Format(Now(), "ddmmmyyyy") & " - Trip Data.xlsx", CreateBackup:=False ActiveWorkbook.Close False
On Error Resume Next
Set wkb = Workbooks("what do I put here")
If Err.Number = 0 Then 'workbook is open
Application.EnableEvents = False 'just in case we trigger a beforeClose event we don't want
wkb.Close savechanges:=False 'so close it, without saving changes
Application.EnableEvents = True
Take hold of your future.