Private Sub UserForm_Initialize()
Dim WB As Workbook, i
i = 1
For Each WB In Workbooks
If Not (WB Is ActiveWorkbook) Then Application.Windows(i).Visible = False
i = i + 1
Next
Application.DisplayFullScreen = True
End Sub
Private Sub UserForm_Terminate()
Dim WB As Workbook, i
i = 1
For Each WB In Workbooks
Application.Windows(i).Visible = True
i = i + 1
Next
Application.DisplayFullScreen = False
End Sub