Como ativar macros automaticamente no Excel 2010

[LuckFarias]

Olá pessoal, preciso de uma ajudinha se possível, pois sou iniciante no Excel.

Montei uma planilha de custos e preciso que ao abri-la seja criada uma numeração crescente de forma automática (Ex: 1-2-3-4-5-6...)

Encontrei esta macro na internet:

Private Sub Workbook_Open()

Range("D4").Value = Range("D4").Value + 1

End Sub

Porém também preciso que ao clicar em salvar, cada planilha de custo seja gravada em uma pasta específica no computador com nome do arquivo igual ao número gerado pela primeira macro (que no caso está na célula D4). Encontrei esta outra macro para executar a função:

Sub salvar()

ChDir "C:\"

ActiveWorkbook.SaveAs Filename:="C:\Users\Custos" & Range("d4").Value & ".xls", FileFormat:=xlNormal, _

Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, _

CreateBackup:=False

End Sub

Até aí tudo bem, ao abrir a planilha o código é gerado automaticamente em ordem crescente, porém só consigo executar a segunda macro (salvar) manualmente clicando em "executar".

Gostaria de saber como faço para que as duas macros sejam executadas ao abrir o arquivo, ou seja: abro, gera o código, preencho as informações, clico no botão salvar e pronto, salva o aquivo com o nome certo e na pasta definida.

Desculpem se for algo banal, mas como disse sou iniciante e gostaria muito de ajuda.

Obrigado!

[Live Brain Tutoriais]

Opa amigo,

Chame a SUB salvar depois da primeira macro...

Private Sub Workbook_Open()
  Range("D4").Value = Range("D4").Value + 1
  Salvar
End Sub