Mostrar apenas colunas selecionadas

[Manoel Bastos]

Com o código abaixo eu mostrava apenas determinadas colunas, mas não consigo fazer que o código funcione corretamente agora, estou usando o Excel 2010.

 

Sub Mostrar_Somente_Colunas(strCol As String)

' Argumento:
'   strCol: é uma string que representa o intervalo de colunas a ficar visível
'   exemplo: strCol = "D:G"


Dim ws As Worksheet
Set ws = ActiveSheet

Application.ScreenUpdating = False

' desprotege a planilha:
ws.Unprotect "   "  ' **** mude aqui para a sua senha ****

' oculta tudo:
ws.Columns("B:XFD").EntireColumn.Hidden = True ' *** use esta linha se for Excel 2007 ou superior :tw_angry: O problema está aqui, mas não sei como solucioná-lo
'ws.Columns("B:IV").EntireColumn.Hidden = True  ' *** use esta linha se for antes do 2007

' exibe somente as colunas escolhidas:
ws.Columns(strCol).EntireColumn.Hidden = False
ActiveWindow.ScrollColumn = 1

' protege a planilha:
ws.Protect "     " ' **** mude aqui para a sua senha ****

' libera variável:
Set ws = Nothing

Application.ScreenUpdating = True
End Sub