Macro exibir planilha (aba) oculta

[Clonner]

Pessoal tenho essa macro aqui que o osvaldo me ajudou a desenvolver:

Sub Relatorio()

Dim Coluna As Long, SbObjetos As Object

Dim plan As Worksheet, nome As String

Application.ScreenUpdating = False

With Sheets("Historico")

Coluna = .Cells(11, "IV").End(xlToLeft).Column

nome = .Cells(14, Coluna).Value

If nome = "" Then

MsgBox "Insira o número de Relatório"

Exit Sub

End If

For Each plan In Worksheets

If InStr(1, plan.Name, nome) = 1 Then

MsgBox "O número de relatório já existe"

Exit Sub

End If

Next plan

.Range(.Cells(10, Coluna), .Cells(46, Coluna)).Copy

Sheets("Dados").Range("A10").PasteSpecial

End With

Dim modelo As String

Modelo_relatorio.Show

modelo = Sheets("Dados").Range("I7").Text

Sheets(modelo).Copy after:=Sheets(Sheets.Count)

With ActiveSheet

.UsedRange.Copy

.UsedRange.PasteSpecial Paste:=xlValues

.Name = nome

For Each SbObjetos In .Shapes

SbObjetos.Select

SbObjetos.Delete

Next SbObjetos

.Range("B4:B5").ClearContents

.Range("A1").Select

.Hyperlinks.Add Anchor:= _

Sheets("Historico").[iV14].End(xlToLeft), Address:="", _

SubAddress:="'" & ActiveSheet.Name _

& "'!A1", TextToDisplay:=ActiveSheet.Name

End With

Application.CutCopyMode = False

Application.ScreenUpdating = True

End Sub

Ela cria uma nova aba baseada na aba "modelo" escolhida até aqui tudo certo. Só que gostaria que a aba modelo ficasse oculta e a nova aba quando fosse criada ficasse visivel.

Mas quando a aba modelo está oculta a nova aba criada também fica oculta!

Alguma ideia de como fazer isso?

[zinhovba]

Boa tarde!!!

Os comandos são....

..Mas terá que criar uma condição..

Worksheets("Nova").Visible = true

Worksheets("modelo").Visible = False

[Clonner]

Obrigado ZinhoVba,

Eu estava usando esse comando só que estava colocando ele antes da definição do valor de "nome" da nova planilha por isso dava um erro e eu não conseguia entender!

Quando coloquei o comando no lugar certo funcionou como eu queria.

Só tenho uma explicação para isso erro de principiante. hehehe

Valeu pela ajuda.

[Linio Alan]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.