How do I export files to pdf by naming them with values in two cells

Thanks in advance for any possible help. I can't figure out the vba code to make this work.

Here is a summary of what I am trying to do:

Cells a1 to a 50 have location numbers.

I need to copy cell a1 to cell c1. When that occurs cell d1 displays a name. Then I need to export the file to pdf with the name C:\test\d1\c1.

Then I need to repeat for cells a2 through a50.

The other catch is that sometimes the A column might have more or less than 50.

I can get the the exporting part and copying part correct but I am having problems trying to loop this for all 50 or so and save using the name format.

Again, thanks for any and all help - Folks on this forum have been extremely helpful.
Sid

Not sure what you mean.
Maybe this?

Please Login or Register  to view this content.

Make sure you have a folder on the C disk with the name test.

here is my slightly changed version of this. I need the file to be called C:\test\Name in c2\Number in c1.pdf. I am getting an 1004 error when trying to save.
Thanks,
Sid


Sub Macro1()
Dim i As Long
With ActiveSheet
For i = .Cells(Rows.Count, 1).End(xlUp).Row To 1 Step -1
Range("c1").Select
ActiveCell.FormulaR1C1 = Range("A" & i)
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\test\" & .Range("c2") & "\" & .Range("c1") & ".Pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
Next
End With
End Sub