Check For SHEET if VISIBLE

[HotNumbers]

How do i check to see if a sheet is Visible then left it visible then Unhide specific other sheets.

I have a workbook with over 50 sheets. But sometimes few are showing and the rest are veryHIdden. I want to check if a sheet is already visible then leave it visible then unhide the ones on the list that are not.

 

[Jeffrey Smith]

HotNumbers,

This may help. It will only unhide worksheets that are not very hidden.

Sub UnhideWBs()

  Dim Sht As Worksheet
  
  For Each Sht In ActiveWorkbook.Worksheets
    If Sht.Visible = xlSheetHidden Then
      Sht.Visible = xlSheetVisible
    End If
  Next Sht
  
End Sub

This will only unhide selected worksheets

Sub UnhideSome()

  Dim Sht As Worksheet
  Dim Unhide As Integer
  
  
  For Each Sht In ActiveWorkbook.Worksheets
    Unhide = 0
    Select Case Sht.Name
      Case "Sheet1", "Sheet2", "Fred_Flinstone", "Barney"
        Unhide = 1
    End Select
    If Unhide = 1 Then
      If Sht.Visible = xlSheetHidden Then
        Sht.Visible = xlSheetVisible
      End If
    End If
  Next Sht


End Sub

 

[HotNumbers]

HotNumbers,

This may help. It will only unhide worksheets that are not very hidden.

Sub UnhideWBs()

  Dim Sht As Worksheet
  
  For Each Sht In ActiveWorkbook.Worksheets
    If Sht.Visible = xlSheetHidden Then
      Sht.Visible = xlSheetVisible
    End If
  Next Sht
  
End Sub

This will only unhide selected worksheets

Sub UnhideSome()

  Dim Sht As Worksheet
  Dim Unhide As Integer
  
  
  For Each Sht In ActiveWorkbook.Worksheets
    Unhide = 0
    Select Case Sht.Name
      Case "Sheet1", "Sheet2", "Fred_Flinstone", "Barney"
        Unhide = 1
    End Select
    If Unhide = 1 Then
      If Sht.Visible = xlSheetHidden Then
        Sht.Visible = xlSheetVisible
      End If
    End If
  Next Sht


End Sub

thank you... this will help