Smart View do not run with Excel in automation mode.
Set xl = CreateObject("Excel.application")
Set xlBook = xl.Application.Workbooks.Open ("path+sheetname.xlsm")
xl.Application.Visible = true
xl.DisplayAlerts = False ' Add this to override any prompts
xlBook.Save ' Save the Book
Set xlBook = Nothing
Set xl = Nothing
and thanks for your answers!
I tried your code @Celvin but I am still having the Problem that Excel opens and Smart View remains inactive......I think that Shaji is right, Smart View do not run in Automation mode.