Dim wb As Workbook
Dim fileName As String
 
fileName = "hoge.xlsx"
For Each wb In Workbooks
    If wb.Name = fileName Then
        Application.DisplayAlerts = False
        wb.Close
        Application.DisplayAlerts = True     
    End If
Next wb