Command Button that shows Hidden Sheets - Needs Password Protection

Hi, John,

if the left 4 characters of the sheetnames are Data:

'...
  For Each ws In ThisWorkbook.Worksheets
    If Left(ws.Name, 4) = "Data" Then
      ws.Visible = xlSheetVisible
    End If
  Next ws

If Data is contained anywhere in the sheetname:

  For Each ws In ThisWorkbook.Worksheets
    If InStr(1, ws.Name, "Data") > 0 Then
      ws.Visible = xlSheetVisible
    End If
  Next ws

Ciao,
Holger