Dim myExcel
Set myExcel = CreateObject("Excel.Application")
myExcel.DisplayAlerts = False
myExcel.AskToUpdateLinks = False
myExcel.AlertBeforeOverwriting = False
myExcel.Workbooks.Open("C:\Users\vishwamitrad_m\Documents\Book1.xlsx")
myExcel.visible=true