none
excel vba sheetname contains srting then hide sheet RRS feed

Answers

  • Sub HideSheets()
        Dim sht As Worksheet
        For Each sht In Worksheets
            If LCase(sht.Name) Like "*string you are looking for*" Then sht.Visible = False
        Next sht
    End Sub

    Sub UnHideSheets()
        Dim sht As Worksheet
        For Each sht In Worksheets
            sht.Visible = True
        Next sht
    End Sub


    Monday, July 28, 2014 8:09 PM