Bom, sou novo no fórum mas vou tentar te ajudar baseado em um código que tenho aqui.

Primeiramente, uma sugestão: não coloque no código um diretório específico, visto que isto pode causar problemas para o funcionamento da macro em outros computadores. Você pode definir uma variável para o diretório em que a planilha está localizada:

sPath = ActiveWorkbook.Path

Deste modo, o código ficaria:

Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sPath + "NomedoArquivo", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Acredito que seja mais fácil mandar email utilizando um código para abrir o Outlook e usando uma string para definir a extensão do arquivo.

Dim ext as string
ext = "PDF"

Var = Enviar(ext) ' Utiliza a funcao para enviar email

Veja se o código abaixo atende sua necessidade:

Function Enviar(ext) 
Dim OutApp As Object, OutMail As Object
Set OutApp = CreateObject("Outlook.Application")
Set OutMail = OutApp.CreateItem(0)

sPath = ActiveWorkbook.Path
On Error Resume Next
With OutMail
    .Display
    End With

    With OutMail
    .Subject = "Assunto"
    .body = "Corpo do Email"
    .Attachments.Add sPath + "NomedoArquivo." + ext
End With
On Error GoTo 0
Set OutMail = Nothing
Set OutApp = Nothing
End Function

Espero ter ajudado

Veja se este modelo lhe atende.
Testado Excel 2010, este modelo não usa Outlook, envia direto pelo Excel
Comente resultado.

Bom, sou novo no fórum mas vou tentar te ajudar baseado em um código que tenho aqui.

Primeiramente, uma sugestão: não coloque no código um diretório específico, visto que isto pode causar problemas para o funcionamento da macro em outros computadores. Você pode definir uma variável para o diretório em que a planilha está localizada:

...

Espero ter ajudado

Muito obrigado Celso89.
Apanhei um pouco aqui, mas consegui fazer funcionar com seus códigos.
Realmente o sPath é necessário, pois nem sempre a planilha estará na mesma pasta em computadores alheios.
Segue em anexo a minha planilha atualizada com seus códigos.

Veja se este modelo lhe atende.
Testado Excel 2010, este modelo não usa Outlook, envia direto pelo Excel
Comente resultado.

Miguel, gostei muito do seu modelo.
Porém no momento não é o que preciso, pois a planilha será usada basicamente na empresa, onde utilizamos o Outlook.
Mas já salvei sua planilha aqui porque sei que cedo ou tarde me será útil. Obrigado.

Show!