Atualização de macro nova aba e hyperlink

[Clonner]

Tenho uma planilha que Osvado (aqui do forum) me ajudou muito a desenvolver.

Só que como todo programa depois que você coloca pra usar sempre aparece um "detalhe".

Essa macro cria uma nova aba baseada em uma aba modelo, só que me apresentaram seis abas modelos diferentes e eles querem poder escolher qual delas será usada!

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

Sheets("Rotina").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

Gostaria de colocar um formulario para que se pudesse escolher entre as seguintes abas: Rotina, RotinaVeg, Comutador, Recondicionamento, Regeneracao ou Comicionamento. E ai sim nova aba baseada na escolhida.

Já faz uns três dias que estou tentando e até agora nada.

Agradeço a todos.

[Clonner]

Consegui resolver o problema criando um formulario, com um Combobox e enviando o valor escolhido para uma celula usando o comando:

Sheets("Dados").Range("I7") = Me.ComboBox1.Text

Depois implementei o seguinte código:

Dim modelo As String

Modelo_relatorio.Show

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

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

substituindo a linha:

Sheets("Rotina").Copy after:=Sheets(Sheets.Count)

Estava querendo que o Combobox funcionasse como um InputBox como não consegui fiz por outro caminho.

Se alguem tiver uma sugestão pode enviar uma mensagem.

Moderador pode fechar o tópico.

[Douglas]

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