loop through drop down list creating pdf files

[IIJJII]

I have a drop down list in cell AD5 of Sheet1. When I select each item in the list, Sheet1 updates with the appropriate values. I am trying to loop through each item in the drop down list and then export Sheet1 as a pdf. The code I have so far just exports the same item in the list and doesn't actually loop through, how can I change this? Here is my code so far:

Sub Create_pdf_pack()


     Dim inputRange As Range
     Dim c 'As Range
     
     Set inputRange = Evaluate(Range("AD5").Validation.Formula1)
               
        For Each c In inputRange
       
            ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            fileName:="C:\test\" & c.Value, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
               
        Next c


End Sub

 

[Domenic]

Try...

Sub Create_pdf_pack()


     Dim inputRange As Range
     Dim c As Range
     
     Set inputRange = Evaluate(Range("AD5").Validation.Formula1)
               
        For Each c In inputRange
        
            [COLOR=#ff0000]Range("AD5").Value = c.Value[/COLOR]
       
            ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\test\" & c.Value, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
               
        Next c


End Sub

 

[PowRider]

Hi Domenic,
Thanks for the code provided. It's almost working for me.
Could you take a look at my thread and let me know if you can help? Much appreciated
http://www.mrexcel.com/forum/excel-...ations-close-but-not-working.html#post4485699

 

[PowRider]

Try...

Sub Create_pdf_pack()


     Dim inputRange As Range
     Dim c As Range
     
     Set inputRange = Evaluate(Range("AD5").Validation.Formula1)
               
        For Each c In inputRange
        
            [COLOR=#ff0000]Range("AD5").Value = c.Value[/COLOR]
       
            ActiveSheet.ExportAsFixedFormat _
            Type:=xlTypePDF, _
            Filename:="C:\test\" & c.Value, _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, _
            IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
               
        Next c


End Sub

Hi Domenic,
Thanks for the code provided. It's almost working for me.
Could you take a look at my thread and let me know if you can help? Much appreciated
http://www.mrexcel.com/forum/excel-...ations-close-but-not-working.html#post4485699