Regras do forum:

• Upload
Devido a ultrapassagem da marca de 1,5Gb de armazenamento de arquivos na hospedagem do Planilhando, limitaremos o tamanho de cada arquivo para 2Mb sendo obrigatório o uso dos formatos .zip - .rar - .ice visto a gratuidade e não geração de recursos para bancar o site.

Assim sendo, todos os anexos deste tópico foram compactados.

Por favor leia as regras (link na minha assinatura), e passe a compactar todos os seus anexos.

Obrigado,

Fernando

Desculpe, vou me atentar na proxima.

Alem da assitencia do Fernando, eu realmente não entendi qual a sua duvida, o assunto diz "Problemas com macro ao ocultar planilha" e depois você coloca :
"Na primeira vez que uso, ele realiza tudo maravilhosamente, salvando a nova planilha com o nome "0001", mais quando peço para salvar a "0002", ele salva,
mais renomeia a "0001" para "Ordem de Serviço 2".
Como posso corrigir isso?"

O problema é com ocultar planilha ou Salvar ?

Nas linhas que colocou, você tem a instrução :
"ActiveWindow.SelectedSheets.Visible = False"
mas não está reexibindo para continuar com outras ações, talvez esteja ai o X do problema.

[]s

[]s

Boa noite Tecnico

Me responda uma coisa, o tópico:

viewtopic.php?f=10&t=15075&p=79029#p79029

é sobre o mesmo assunto?

Se for, porque abandonou aquele tópico e criou outro sobre o mesmo assunto, contrariando as regras do fórum?

Aguardo resposta.

Patropi - Moderador

Bom dia,

Você não foi muito claro na sua dúvida...

veja se o código abaixo te adente:

Sub Gerar_OS()
    'Aquisita o nome da aba atual
    Dim Nome As String
    Nome = ActiveSheet.Name
    'Copia a aba
    ActiveSheet.Copy After:=Worksheets(Worksheets.Count)
    Worksheets(Nome & " (2)").Name = ActiveSheet.Range("A1").Value
    'Ocultar a OS criada ...?
    Worksheets(CStr(ActiveSheet.Range("A1").Value)).Visible = False
    ' Voltar Macro
    Sheets(Nome).Select
    'Incrementa o contador de OS
    Sheets(Nome).Range("A1").Value = Format(Sheets(Nome).Range("A1").Value + 1, "0000")
End Sub