Excel Macro para escolher local de salvar arquivo

[Gaudérius]

Bom dia.

 

Tenho uma macro que me permite salvar minha planilha em PDF.

 

O único problema é que ele sempre salva a planilha na última pasta que salvei qualquer coisa.

Gostaria que salvasse o PDF na própria pasta onde o excel esta, independente de onde o excel esteja (vou enviar para diversar pessoas).

 

Citação

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
    Sheets("Score Card").Select
    Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=Sheets("Score Card").Range("D6").Value, Quality:=xlQualityStandard _
        , IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
        True
    Sheets("Score Card").Select
    Range("B2:P62").Select
End Sub

 

[Gaudérius]

Que tristeza. Achei que uma linha com o comando do local para salvar seria fácil.

[Basole]

Segue sua macro com as alterações, veja se é isso exatamente o  que precisa

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
Sheets("Score Card").Select
Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets("Score Card").Range("D6").Value, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Score Card").Select
Range("B2:P62").Select
End Sub

Tambem aqui:  https://goo.gl/dwJy2b

[Gaudérius]

Deu este erro

[Basole]

Segue a correão: 

Sub salvar()
'
' Salvar Macro
'
Dim nome As String
'
Sheets("Score Card").Select
Range("B2:P62").ExportAsFixedFormat Type:=xlTypePDF, Filename:=ThisWorkbook.Path & "\" & Sheets("Score Card").Range("D6").Value, Quality:=xlQualityStandard _
, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _
True
Sheets("Score Card").Select
Range("B2:P62").Select
End Sub