Work with all sheets

Topic

New Reply

Is there a way to work with all sheets in a workbook without creating a (massive) array. I need to be able to protect and hide all worksheets in a workbook bar the home page.

Reply | Quote

Replies

I’d just loop through the worksheets collection:

Code:

	Dim oSh As Worksheet
	'No visble sheets is not allowed, so
	'make sure the home sheet is visible:
	Worksheets("Home").Visible = xlSheetVisible
	For Each oSh In ThisWorkbook.Worksheets
		If Not oSh.Name = "Home" Then
			oSh.Visible = xlSheetHidden
		End Sub
	Next

Reply | Quote

Thankyou, that makes life much easier!

Reply | Quote