Boa noite!!

Não testado!!!

Sub SalvarPDF()
'Author       : Ken Puls (www.excelguru.ca)
'Macro Purpose: Print specific sheets to PDF file using Microsoft's 2007 Add-in

Dim wsNames() As Variant
wsNames = Array("Formulário Suporte NF", "Rateio 1", "Rateio 2", "Rateio 3", "Rateio 4", "Rateio 5")
    
    For i = LBound(wsNames) To UBound(wsNames)
        
        With Sheets(wsNames(i))
            .ExportAsFixedFormat _
                    Type:=xlTypePDF, _
                    Filename:="C:SeuLocalTest.pdf", _
                    OpenAfterPublish:=False
        End With
    
    Next i
    
End Sub

para mais leia:
http://msdn.microsoft.com/en-us/library ... (office.11).aspx
http://www.rondebruin.nl/win/section1.htm
Att