' engineerbox.ru
' by Colee
' 23.06.2016
Sub ОткрытьВНовомОкне()
    Set NewWindow = CreateObject("Excel.Application")
    FullName = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
    NewWindow.Workbooks.Open (FullName)
    NewWindow.Visible = True
    ActiveWorkbook.Close (False)
End Sub