Set objExcel = CreateObject("Excel.Application")  
objExcel.visible = true
objExcel.workbooks.open("D:\test.xls")
objExcel.ActiveWorkbook.Sheets("lojza").Select