Como salvar a planilha por VBA (urgente)

[DanielCarneiro]

Ola pessoal...

Estou com um pequeno problema com a configuração do meu sistema em VBA... Estou realizando alguns procedimentos e no final coloco -> ActiveWorkbook.Save 

Com o intuito do VBA salvar a planilha automaticamente, mas acaba que ela não salva e sempre que tento fechar ela pede para eu salvar manualmente.

O código completo que estou usando vou deixar abaixo:

-------------------------------------------

Private Sub CommandButton7_Click()
'Declarar uma variavel para verificar os campos que estão em branco e informar ao usuário que deve ser preenchido
Dim campo(16) As String

'Campos digitados manualmente para que o excel exiba os campos de cada um.
campo(1) = "Código"
campo(2) = "Nome do Fornecedor"
campo(3) = "CNPJ"
campo(4) = "Marca"
campo(5) = "Nome do Representante"
campo(6) = "Contato"
campo(7) = "Estado"
campo(8) = "Cidade"
campo(9) = "Bairro"
campo(10) = "Endereço"
campo(11) = "Nº"
campo(12) = "Complemento"
campo(13) = "Status"
campo(14) = "Email"
campo(15) = "Site"
campo(16) = "Descrição do Fornecedor"

'Perguntar ao usuário se ele realmente deseja gravar os dados na base
Resposta = Msgbox("Deseja cadastrar/alterar o Fornecedor?", vbQuestion + vbYesNo, "Atenção Usuário")
If Resposta = vbNo Then
Exit Sub
End If

'Caso o usuário queira realmente salvar, então exibir mensagem informando que o Fornecedor foi salvo com sucesso.
Msgbox "Fornecedor cadastrado/alterado com sucesso", vbInformation, "Atenção Usuário"

'Declarar variavel que será utilizada para gravar os dados no excel (ln)
Dim ln As Integer

'Mandar o Excel procurar a base de dados na qual encontra-se o pedido de compra e adicionar o novo Fornecedor na próxima linha
ln = Range("base_fornecedores").Rows.Count + 1

'Gravar os dados na planilha de Cadastro de Produtos
For a = 1 To 16
    Plan5.Cells(ln, a) = controle_de_cadastro_de_fornecedores(a)
    Plan5.Range("base_fornecedores").CurrentRegion.Name = "base_fornecedores"
Next

'Mandar o excel salvar o arquivo do excel no computador, para que o usuário possa fechar sem ter que salvar manualmente
ActiveWorkbook.Save

End Sub

-------------------------

Se alguém poder me ajudar ficarei bastante grato