Mas qual o problema de se ter uma planilha com 8 colunas e outra com 9, como disse basta ocultar a que nao esta utilizando que o usario nem vai perceber a diferença
Veja esse exemplo para segunda e quarta
Sub SegQuarta()
Dim WSPlan As Worksheet
Dim WSQ As Worksheet
Set WSQ = Sheets("segunda.quarta")
On Error Resume Next
For Each WSPlan In Worksheets
Application.DisplayAlerts = False
If WSPlan.Name <> "segunda.quarta" Then
WSPlan.Visible = xlSheetVeryHidden
End If
Application.DisplayAlerts = True
Next
WSQ.Visible = xlSheetVisible
End Sub
Isso oculta todas as planilhas menos a segunda e quarta.
Postado : 26/02/2016 12:34 pm