Dim xla As New ExcelApplication()
Dim wb As Workbook = xla.Open("C:\MySpreadsheet.xls")
Dim ws As Worksheet = wb.Worksheets(0)
ws.PivotTables(0).PivotTableSettings.ShowFriendlyErrorCaption= true;
Remarks
While ShowFriendlyErrorCaption is truefalseby default, an . If it is set to true, a FriendlyErrorCaption also needs to be assigned.