Maybe try
ThisWorkbook.Worksheets("Home-Page").Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Home-Page" Then ws.Visible = xlSheetVeryHidden End If Next ws
Maybe try
ThisWorkbook.Worksheets("Home-Page").Visible = xlSheetVisible For Each ws In ThisWorkbook.Worksheets If ws.Name <> "Home-Page" Then ws.Visible = xlSheetVeryHidden End If Next ws
____________________________________________
Nihil simul inventum est et perfectum
Abusus non tollit usum
Last night I dreamed of a small consolation enjoyed only by the blind: Nobody knows the trouble I've not seen!
James Thurber
Posting Permissions
Reply With Quote