Public Sub HideAllExcept(MySheet As String)
On Error Resume Next
X = Application.Sheets.Count
For i = 1 To X
    If Application.Sheets(i).Name <> "Dashboard" Then    ' Do not hide the dashboard
        If Application.Sheets(i).Name <> MySheet Then
            Application.Sheets(i).Visible = xlSheetHidden
        End If
    End If
Next i
End Sub