Workbook.Sheets[1].Visible := False;
Workbook.Sheets[1].Visible := xlSheetHidden;
With Workbook.Sheets[1] do begin if Visible = xlSheetVisible then Name := 'Visible Sheet' else Name := 'InVisible Sheet'; end;