Application.DisplayAlerts = False Workbooks("Book1.xlsx").Close Application.DisplayAlerts = True

Dim filenameList As Variant For i = 0 To UBound(filenameList) MsgBox filenameList(i) Next i UBoundは動的配列の大きさ(要素数)を取得する。