Tente essa linha

application.dialogs(Xldialogsaveas).show

Assim o usuario escolhe o local e o formato.

Obrigada Prudencio.

Funcionou, porem ela salva a planilha do Excel inteira. E eu preciso salvar apenas a aba "relatório" em PDF.
Vou ver se consigo adaptar.

Boa tarde.

Eu utilizo esse código.

No endereço vc pode referenciar uma célula também!

Sub SPDF()
'       Salvando em PDF com nome da célula A1.
    Dim NovoNome As String
    NovoNome = "C:Relato" & ActiveSheet.Range("V2").Value & ".pdf"
    ActiveSheet.ExportAsFixedFormat _
    Type:=xlTypePDF, _
    FileName:=NovoNome, _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=False
End Sub

Ele salva o que está definido na área de impressão!

Alguém pode me ajudar preciso de algo quase isso porem que salve o arquivo word que esta aberto até fiz um formulário
http://www.planilhando.com.br/forum/viewtopic.php?f=10&t=24634

Jozelia o codigo apenas abre a caixa de salvar como, cabe ao usuario escolher o local e o formato.

Obrigada pela ajuda de todos!
Segue a solução!

 Dim Ctl As Control, sArray()
    ReDim sArray(0)
    For Each Ctl In Me.Controls
        If TypeOf Ctl Is MSForms.CheckBox Then
            If Ctl Then
                sArray(UBound(sArray)) = Ctl.Tag
                ReDim Preserve sArray(UBound(sArray) + 1)
            End If
        End If
    Next
    

    
    Sheets("BD_relatorios").Select
    
    Dim vPDFPath As String
     
    Do

        bRestart = False
        vPDFPath = Application.GetSaveAsFilename(, "PDF Files (*.pdf), *.pdf")

        If CStr(vPDFPath) = "False " Then
            
            Exit Sub
        Else
            lAppSep = InStrRev(vPDFPath, Application.PathSeparator)
            
        End If
    
    
        If UCase(Dir(vPDFPath)) = UCase(Right(vPDFPath, Len(vPDFPath) - lAppSep)) Then
            Select Case MsgBox("O arquivo já existe neste local. Quer substituir?", _
                               vbYesNoCancel, "O arquivo de destino existe!")
                Case vbYes
                    Kill vPDFPath
                Case vbNo
                    bRestart = True
                Case vbCancel
                Sheets("BD_relatorios").Select
                    Exit Sub
            End Select
        End If
    Loop Until bRestart = False

    ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:=vPDFPath, _
            OpenAfterPublish:=True
            
Sheets("BD_relatorios").Select

MsgBox "Arquivo criado com Sucesso!"

Unload Me
    
 
 

Abraços!