E quais são esses campos?

E quais são esses campos?

Bom dia,

O campo 'Nome do Treinador', por exemplo. É um campo obrigatório e em todas as sheets fica na célula C4

Obrigado mais uma vez!

Tente algo tipo isso:

Ocultar vazias:

Sub Ocultar()
Application.ScreenUpdating = False
For i = 1 to 70
If Sheets(i).range("C4").value = "" Then
Sheets(i).Visible = False
End If
Next i
Application.ScreenUpdating = True
End Sub

Mostrar tudo novamente:

Sub Mostrar_tudo()
For i = 1 to 70
Sheets(i).Visible = True
Next i
End Sub

Xlarruda,

Nos testes que fiz, a rotina ocultou todas as planilhas em branco e deixou as preenchidas visíveis. Gostaria, se possível, que apenas a próxima vazia ficasse visível.

Por exemplo: digamos que as planilhas de 1 a 24 estão preenchidas. A rotina deve identificar isso para exibir a 25, que é a próxima vazia e ocultar todas as outras, preenchidas ou não.

Dessa forma, as planilhas de 1 a 24 ficariam ocultas, a 25 ficaria visível e da 26 até a 70 ficariam ocultas também.

Obrigado mais uma vez!

Bom dia!

Veja se atende:

Sub OcultarMenos1()
    Dim Pl As Worksheet
    Dim i As Integer
    
    Application.ScreenUpdating = False
    For Each Pl In Worksheets
        Pl.Visible = xlSheetVisible
        If Pl.[C4].Value <> "" Then i = Pl.Index
    Next
    
    For Each Pl In Worksheets
        If Pl.Index <> i + 1 Then Pl.Visible = xlSheetHidden
    Next
    Application.ScreenUpdating = True
End Sub

Abraço

Perfeito!!! Muito obrigado, JValq. Abraços