title: Method 'Visible' of object '_Worksheet' failed
body: <p>Not sure why this is failing but for whatever reason, when the ActiveSheet is Console it fails. Going the other way, it works properly. Code is below.</p>
  <pre><code>    Sub Switch_Books()
      Dim ws As Worksheet
      protect_book True
  
      If ActiveSheet.Name = &quot;Console&quot; Then
          For Each ws In ThisWorkbook.Worksheets
              If ws.Name = &quot;CDA Console&quot; Then
                  ws.Visible = xlSheetVisible
              Else
                  ws.Visible = xlSheetHidden
              End If
          Next ws
      Else
          For Each ws In ThisWorkbook.Worksheets
              If ws.Name = &quot;Console&quot; Then
                  ws.Visible = xlSheetVisible
              Else
                  ws.Visible = xlSheetHidden
              End If
          Next ws
      End If
  
      protect_book False
  
  
      End Sub
  </code></pre>