Bom dia!!

Use a pesquisa do fórum!!!!
viewtopic.php?f=10&t=7070&p=37497&hilit=Ocultar+linhas_colunas#p37497
viewtopic.php?f=10&t=7070&p=37497&hilit=Ocultar+linhas_colunas#p37497
viewtopic.php?f=10&t=6160&p=32192&hilit=Ocultar+linhas_colunas#p32192
viewtopic.php?f=10&t=5574&p=29074&hilit=Ocultar+linhas_colunas#p29074
viewtopic.php?f=10&t=5494&p=28645&hilit=Ocultar+linhas_colunas#p28645
viewtopic.php?f=10&t=3388&p=26501&hilit=Ocultar+linhas_colunas#p26501

Att

Bom dia

Seguindo recomendações do fórum, a macro abaixo atendeu perfeitamente minha necessidade:

Sub VerificaLinhaOculta()
    Dim Rng As Range
     Set Rng = Range("A10:G20")
    If Rng.EntireRow.Hidden = True Then
        MsgBox "Off"
        Rng.EntireRow.Hidden = False
    Else
        MsgBox "On"
        Rng.EntireRow.Hidden = True
    End If
End Sub

Queria saber se tem como evitar que a apareça "MsgBox "Off" e "MsgBox "On".
Apenas pressionando o botão as duas funções se revezassem sem as box.

Grato

Boa noite!!
Veja que tem uma aspa simples na frente.
Comente a linha

Sub VerificaLinhaOculta()
Dim Rng As Range
Set Rng = Range("A10:G20")
If Rng.EntireRow.Hidden = True Then
'MsgBox "Off"
Rng.EntireRow.Hidden = False
Else
'MsgBox "On"
Rng.EntireRow.Hidden = True
End If
End Sub

Boa noite
Meu caro Alexandrevba, as vezes da tilt, preguiça ou sei lá o que. Juro que sabia que a aspa antes, transforma a linha em simples comentário. Deve ser stress ou burrice mesmo.
Grato