Boa noite!!
Eu fiz um teste com 5000 linhas e mais de 30 colunas, eu não tive problema!!
Repare que fiz uma micro mudança na rotina!
Sub Teste_AleVBA()
Dim LC As Long, k As Long
Application.ScreenUpdating = False
'Columns("A:HL").EntireColumn.Hidden = False
LC = Cells(4, Columns.Count).End(xlToLeft).Column
For k = 4 To LC
If Cells(4, k) <> Range("B3") Then
Columns(k).EntireColumn.Hidden = True
End If
Next k
Application.ScreenUpdating = True
End Sub
Att
Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel
Postado : 04/06/2013 4:43 pm