For Each in next - Menutup Workbook Yang Terbuka

Option Explicit
Sub nutup()

Dim wb As Workbook

For Each wb In Workbooks
If wb.Name <> ThisWorkbook.Name Then
wb.Close
End If
Next wb
End Sub

===================================

Sub nutup()

Dim ws As Worksheet

For Each ws In Worksheets
ws.Visible = xlSheetVisible

Next ws
End Sub