Tenta assim

ActiveWorkbook.Close

Tenta assim

ActiveWorkbook.Close

Deu ainda Excel parou de funcionar, mas fez a gravacao como antes.

Rodei de novo , e nao deu mais a mensagem, porem O excel ficou aberto sem planilha nenhuma aberta.

Rodei de novo e deu a mensagem de erro novamente, parece que agora ficou aleatorio o erro.

Detalhe , quando da o erro se eu tiver outra planilha aberta, quando da este erro, eu fecho o erro e todas as planilhas abertas se fecham. Com este comando .Close, era pra fechar somente a planilha em questao.

Grato

Entao insira essas linhas no codigo

Dim W as Workbook

set W = Workbooks("Nome do Arquivo")

W.close

Ou assim

Workbooks("Nome do Arquivo").Close

ainda erro , o excel esta procurando uma solucao para o problema.

Usei as duas formas, deixei a de baixo

Workbooks("LOJISTA - GAUER").Close, esta é a ultima que é gravada

MPrudencio, consegui, anota ai.

Coisa boba mas chata

Application.Quit

Isso fecha o Excel nao a planilha

Isso fecha o Excel nao a planilha

Rsrs , tem razao pude perceber isso agora, entao fiquei na mesma, pois o comando anterior ate fecha mas da o erro que te falei.

No lugar da instrução com erro coloque a seguinte :
MsgBox ActiveWorkbook.Name

Assim teremos o nome e qual arquivo está aberto no momento, e podemos nos referir diretamente ao mesmo pelo nome.

tenta assim:

ThisWorkbook.Close true

Bom dia, tentei ja todas as dicas acima desde a abertura do topico, mas nada. Apesar de dar o erro, as 3 Planilhas sao salvas corretamente, porem como fico com outra planilha aberta, dai dando o erro ela fecha .

1- Esta Macro, Salva a Planilha Base em xLms para uma proxima atualizacao de precos
1A- Exclui o Botao da Macro e adiciona protecao a todas as Abas visiveis e ocultas
2- Salva a Planilha agora com outro nome ( celula B1 ) em xLs
3- salva de novo com outro nome ( Celula B1 ) em xls
4- salva de novo com outro nome ( Celula B1 ) em xls
5- A planilha aberta agora passou a ser chamada com nome baseado na Celula ( B1 )

Com o comando fechar esta planilha deveria fechar, porem da os erros acima, porem se posto comando fechar Excel tudo ocorre perfeitamente.

'Workbooks("LOJISTA - GAUER").Close - ERRO
'ActiveWorkbook.Close - ERRO

Dim W as Workbook
set W = Workbooks("Nome do Arquivo") - ERRO
W.close

Workbooks("Nome do Arquivo").Close - ERRO
'Application.Quit 'fecha esta planilha e o excel - OK

Quanto inserir a Mensagem:

MsgBox ActiveWorkbook.Name

Mostra planilha Ativa sendo a Ultima como era esperado, neste caso "LOJISTA GAUER"

Abaixo segue minha Macro.

Sub Salvar()

Dim pdf As String
'
Application.ScreenUpdating = 0
 Application.DisplayAlerts = False 'desabilite o alerta
                
    Range("B1:L3").Select
    ActiveCell.FormulaR1C1 = "ENTRAR COM A LOJA"
    Range("B4").Select
       
' Salva e faz o Back-Up
    ActiveWorkbook.SaveAs Filename:= _
        "C:UsersAndreDesktopPedidos GauerTabela InternaLOJISTA MATRIZ.xlsm", FileFormat _
        :=xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False
                
'-----------------------------------------------------------

' Salva Planilha A
    Range("B1:L3").Select
    ActiveCell.FormulaR1C1 = "A"
    Range("B4").Select
      
 ' Apaga Macro Salvar
    ActiveSheet.Shapes.Range(Array("Oval 12")).Select
    Selection.Delete
          
Worksheets("AVISO").Protect "1234"
Worksheets("PEDIDO").Protect "1234"
Worksheets("RESUMO").Protect "1234"

  ActiveWorkbook.SaveAs Filename:= _
  "C:UsersAndreDesktopPedidos GauerLOJISTA - A.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
                
pdf = "C:UsersAndreDesktopPedidos Gauer" & "PDF A" & ".pdf"
Worksheets("TABELA EM PDF").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf
                                
'----------------------------------------------------

' Salva Planilha B
Worksheets("AVISO").Unprotect "1234"

    Range("B1:L3").Select
    ActiveCell.FormulaR1C1 = "B"
    Range("B4").Select
   
Worksheets("AVISO").Protect "1234"
Worksheets("PEDIDO").Protect "1234"
Worksheets("RESUMO").Protect "1234"

' Salva e faz o Back-Up
  ActiveWorkbook.SaveAs Filename:= _
  "C:UsersAndreDesktopPedidos GauerLOJISTA - B.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
                
pdf = "C:UsersAndreDesktopPedidos Gauer" & "PDF B" & ".pdf"
Worksheets("TABELA EM PDF").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf
                
'----------------------------------------------------------

' Salva Planilha Lojas Diversas
Worksheets("AVISO").Unprotect "1234"

    Range("B1:L3").Select
    ActiveCell.FormulaR1C1 = "Tabela de Preços"
    Range("B4").Select
   
Worksheets("AVISO").Protect "1234"
Worksheets("PEDIDO").Protect "1234"
Worksheets("RESUMO").Protect "1234"

' Salva e faz o Back-Up
  ActiveWorkbook.SaveAs Filename:= _
  "C:UsersAndreDesktopPedidos GauerLOJISTA - GAUER.xls", FileFormat:= _
        xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
                
pdf = "C:UsersAndreDesktopPedidos Gauer" & "PDF LOJISTA GAUER" & ".pdf"
Worksheets("TABELA EM PDF").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pdf
              
        
Application.ScreenUpdating = 1
    
'Fechará a planilha

'Workbooks("LOJISTA - GAUER").Close
'ActiveWorkbook.Close
'Application.Quit  'fecha esta planilha e o excel
' ThisWorkbook.Close True

 MsgBox ActiveWorkbook.Name

End Sub

Grato