With Worksheets.Add(after:=Worksheets("Sheet1"))
.Name = "test"
.Visible = xlSheetHidden '/ or xlSheetVeryHidden
End With
Same question, response by Norman Harker
Application.ActiveWorkbook.Sheets.Add After:= Sheet1 'first sheet not the name
Application.ActiveSheet.Name = "MyNewSheet"
Application.ActiveSheet.Visible = False
See Build TOC code to make visible automatically
when listing contents of a workbook.
To eliminate hidden rows when copying, you can use the keyword shortcut
Ctrl+A to select all cells (slam the keys again if using Excel 2003)
Alt+; (semi-colon) to select visible cells
Ctrl+C to copy the selection
select new sheet
Ctrl+V to paste the selection (without the hidden rows)
Visit [my Excel home page] [Index page] [Excel Onsite Search] [top of this page]
Please send your comments concerning this web page to: David McRitchie send email comments
Copyright © 1997 - 2008, F. David McRitchie, All Rights Reserved