Close workbook with variable

[Ingemar]

Hello!

I open an Excel file with the VBA code below using a variable called "Filename".

' File filters
Filter = "Excel Workbook (*.xlsx,*xlsx,Excel Makro-enabled Workbook (*.xlsm),*.xlsm,Excel 97-2003 Workbook (*.xls),*.xls,"

' Set Dialog Caption
Title = "Select a File to Open"

With Application
' Set File Name to selected File
Filename = .GetOpenFilename(Filter, FilterIndex, Title)
End With

' Exit on Cancel
If Filename = False Then
MsgBox "No file was selected."
Exit Sub
End If

' Open File
Workbooks.Open Filename

How can I close the file opened with the variable "Filename"? I have tried something like below without success.

Workbooks(Filename).Close Savechanges:=False

Grateful for any help

Kind regards

 

[rlv01]

You can replace this:

     Open File
    Workbooks.Open Filename

With this:

    Dim WB As Workbook
    ' Open File
    Set WB = Workbooks.Open(Filename:=Filename)
    
    WB.Close SaveChanges:=False

Also you should try to pick variable names that are not the same as VBA keywords or parameter names. It will save you much grief in the long run. In other words
Workbooks.Open(Filename:=MyFilename) is better than Workbooks.Open(Filename:=Filename)

 

[Ingemar]

Hello rlv01!

Your code works great including your remarks about VBA keywords. Thank you very much.

Kind regards

Ingemar