Excel VisualBasic Script

Sub new()
    ActiveWorkbook.Windows(1).NewWindow
End Sub