Check if workbook is open

    wbkNew.SaveAs Filename:= _
    "C:\Documents and Settings\All Users\Desktop\" & Format(Now(), "ddmmmyyyy") & " - Trip Data.xlsx", CreateBackup:=False
    ActiveWorkbook.Close False

Select all Open in new window

Hi, I have the above function saving a workbook with today's name, etc.

But I also have the coding below which checks if the above workbook exists and closes (if opened)

However, I could not define the name as it is to 'set the workbook' in different function. How would I assign the workbook name to the variable 'wkb'?

 

 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
    End If

Thanks for the help!