Bom ida!!

Use a pesquisa do fórum!!!!
http://www.google.com.br/cse?cx=partner ... gsc.page=1

Sub UsePesquisaForum()
Cells.EntireRow.Hidden = False
End Sub

Att

opa amigo!

Isso mesmo que eu preciso! mas deixe eu fazer outra pergunta. Ate pesquisei no fórum mas nao consegui adaptar para o meu caso.
Quero uma macro que quando eu rodo ela oculte determinadas linhas e se eu rodar de novo ela desoculta

tentei usar essa macro;

Sub Macro1()

If Rows("8:11;16:17,20:21").EntireRow.Hidden = True Then
Rows("8:11;16:17,20:21").EntireRow.Hidden = False
ElseIf Rows("8:11;16:17,20:21").EntireRow.Hidden = False Then
Rows("8:11;16:17,20:21").EntireRow.Hidden = True
End If

End Sub

porem da erro! Diz: Run-time error '13': type mismatch

como pode ver, preciso que oculte e desoculte as linhas 8, 9, 10 11. 16, 17, 20 e 21.
Como eu poderia fazer para dar certo amigo?

Não testei, mas acho que seria algo assim:

Sub nao_testada()

If Union(Rows(8:11), Rows(16:17), Rows(20:21)).Hidden = True Then
Union(Rows(8:11), Rows(16:17), Rows(20:21)).Hidden = False
Else Union(Rows(8:11), Rows(16:17), Rows(20:21)).Hidden = True
End If

Msgbox "se a resposta ajudou, por favor clique na mãozinha como agradecimento!"

End Sub

Ou assim:

Sub nao_testada()

If Union(Range("A8:A11").EntireRow, Range("A16:A17").EntireRow, Range("A20:A21").EntireRow).Hidden = True Then
Union(Range("A8:A11").EntireRow, Range("A16:A17").EntireRow, Range("A20:A21").EntireRow).Hidden = False
Else Union(Range("A8:A11").EntireRow, Range("A16:A17").EntireRow, Range("A20:A21").EntireRow).Hidden = True
End If

Msgbox "se a resposta ajudou, por favor clique na mãozinha como agradecimento!"

End Sub