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