Dim objExcel
            
         
<!--CORPORATE Management system-->

	Sub btn_corporateManagement_onclick()
            call OpenWorkbook("\\citrixsvr05\swtools\Corporate Management System.xlsm")
            End Sub

<!-- PROJECT MANAGEMENT system-->
	Sub btn_projectManagement_onclick()
            call OpenWorkbook("\\citrixsvr05\swtools\Project Management System.xlsm")
            End Sub

            Sub OpenWorkbook(strLocation)
            Set objExcel = CreateObject("Excel.Application")
            objExcel.Workbooks.Open strLocation
            objExcel.Visible = true
            objExcel.WindowState = xlMinimized
            objExcel.WindowState = vbMaximizedFocus
            objExcel.WindowState = vbMaximized
            objExcel.UserControl = true
            
            End Sub