claudinei, veja se é isto :

Sub VerificaLinhaOculta()
    Dim Rng As Range
  
    Set Rng = Range("A1:A12")

    If Rng.EntireRow.Hidden = True Then
        MsgBox "Oculta"
        Rng.EntireRow.Hidden = False
    Else
        MsgBox "Não culta"
        Rng.EntireRow.Hidden = True
    End If

End Sub

[]s

Bom dia!!!

Veja um exemplo ..

Fonte:VBA express

ption Explicit 
 
Private Sub Worksheet_Activate() 
     
    Dim HiddenRow&, RowRange As Range, RowRangeValue& 
     
     '**************************
     '< Set the 1st & last rows to be hidden >
    Const FirstRow As Long = 4 
    Const LastRow As Long = 20 
     
     '< Set the columns that may contain data >
    Const FirstCol As String = "B" 
    Const LastCol As String = "G" 
     '**************************
     
    ActiveWindow.DisplayZeros = False 
    Application.ScreenUpdating = False 
     
    For HiddenRow = FirstRow To LastRow 
         
         '(we're using columns B to G here)
        Set RowRange = Range(FirstCol & HiddenRow & _ 
        ":" & LastCol & HiddenRow) 
         
         'sums the entries in cells in the RowRange
        RowRangeValue = Application.Sum(RowRange.Value) 
         
        If RowRangeValue <> 0 Then 
             'there's something in this row - don't hide
            Rows(HiddenRow).EntireRow.Hidden = False 
        Else 
             'there's nothing in this row yet - hide it
            Rows(HiddenRow).EntireRow.Hidden = True 
        End If 
         
    Next HiddenRow 
     
    Application.ScreenUpdating = True 
     
End Sub 
 

Matou a pau , valeu Mauro e Alexandre.

Abusando de vcs vou postar mais uma duvida.

Boa notie,

como eu consigo visualizar o resultado desse código fonte que voces disponibilizam?

Eu copiei e colei no VBA. E depois faz oq?

Boa noite!!

Seja bem vindo!!

Use a tecla F5, se o editor estiver aberto.

Caso contrario use um botão de comando, na guia desenvolvedor

Para habilitar a guia:
http://guiadoexcel.com.br/habilitando-a ... a-internet

Para executar através de um botão de comando
http://office.microsoft.com/pt-br/excel ... 36676.aspx
Att