@tauron

Este erro de compilação ocorre, pois você pretende (pelo o que entendi) ocultar determinadas guias da sua pasta de trabalho, porém a macro apresentada usa como referência o objeto WorkBooks.

Experimente o que se segue, adaptando á sua realidade :

Dim contGuias As Long

With ThisWorkbook
   For contGuias = 1 To .Sheets.Count
      If .Sheets(contGuias).Name <> "Planilha1" Then
         .Sheets(contGuias).Visible = xlVeryHidden
      Else
         .Sheets(contGuias).Visible = True
      End If
   Next
End With

Então srobles,

Quando eu disse:

"pretendo ocultá-las, exceto a principal. Então irei inserir uma macro para visualizar..."

quiz dizer que exceto a guia plan1, todas as outras seriam ocultadas (xlsheetveryhidden) e que criaria (criei) uma macro para chamar cada uma delas em específico (isso está ok). Então pensei que como o inverso(ocultar a guia reexibida), seria o mesmo procedimento para todas as outras guias (exceto a plan1), bastaria uma única macro.

Já na sua marco, está dando - Erro em Tempo de Execução '1004'! Não foi possível definir a propriedade visible da classe Worksheet.

apontando para a linha

.Sheets(contGuias).Visible = xlVeryHidden

@tauron

Utilizo o código abaixo para fazer algo parecido com o que você quer, veja se não consegue adaptar para a sua planilha:

Private Sub Button_Click()
Dim ws As Worksheet
Application.ScreenUpdating = False
NomeArquivo = ThisWorkbook.Sheets("Controle de Acesso").Range("e1")
Windows(NomeArquivo).Activate
ThisWorkbook.Worksheets("Planilha1").Visible = xlSheetVisible
For Each ws In ThisWorkbook.Worksheets
If ws.Name <> "Planilha1" Then
ws.Visible = xlSheetVeryHidden
End If
Next ws
Application.Windows(NomeArquivo).Visible = True
Application.Visible = True
Application.ScreenUpdating = True
Worksheets("Planilha1").Activate
Cells(6, 2).Select
MainForm.Hide
End Sub