PEssoal,

O código abaixo está funcionando, porém não consigo fazer com que ele salve somente a range que eu quero, ele salva automaticamente a página 1 do arquivo, e também no nome final do arquivo, tem como sair a data do sistema? Pois está saindo a data que está no nome do arquivo.

Obrigado.

Sub CriaPDF()
   'Versoes 2007 e acima
    Dim SvInput As String
    Dim Data As String
    Data = Format(Date - 1, "DD-MM-YYYy")
    SvInput = ThisWorkbook.Path & "_" & Data & ".pdf"
        With ActiveSheet
        .ExportAsFixedFormat _
                Type:=xlTypePDF, _
                Filename:=SvInput, _
                OpenAfterPublish:=True
                Range("F3:R5").Select
        End With
End Sub