still visible

  • Thread starter Thread starter skitek
  • Start date Start date
S

skitek

how to make all sheets invisible and only one visible? Any ideas? (macr
assigned to a button)
th
 
One way:

Public Sub HideAllButOne()
Const sVISIBLENAME As String = "VisibleSheetName"
Dim wsSheet As Worksheet
Application.ScreenUpdating = False
Worksheets(Worksheets.Count).Visible = True
For Each wsSheet In Worksheets
With wsSheet
.Visible = (.Name = sVISIBLENAME)
End With
Next wsSheet
Application.ScreenUpdating = True
End Sub
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Hiding / Unhiding Sheets 1
Can you hide Sheets? 10
Make Object(s) Visible 4
Print Visible Sheets Macro 1
How do I assign pictures to be visible according to cell value? 3
Pasting into a filtered sheet 3
Array Declaration. 1
Macro-unknown num of lines 3

Back
Top