Ok, I think I've really gotten myself into a jam with this one. I'm essentially creating a VBA loop that will go into a specified folder with multiple Excel workbooks that are setup the exact same structurally but have different acccount names within each. I'm trying to go into this folder and open each workbook one at a time and FIRST: Convert it to a PDF SECOND: Save it to a different folder using the same name that is in a specific cell within the workbook. I can get it to work but it's saving using the name that's in a different workbook. How do I make it save as the name in the cell of the workbooks that I'm looping through? Here is what I have:

Sub RateUpdateCopyandPasteLoop()


Dim DDir As String
Dim DName As String
Dim i As Long
Dim PDFFileName As String
Dim Filename As String
Dim ActualFilename As String

ActualFilename = ActiveWorkbook.Path & ActiveSheet.Range("B16")

DDir = "W:\Derivatives\Swap Documents\Swap Reset Notices (PDF Files)"
strPath = "W:\Derivatives\Swap Documents\Swap Reset Notices (Excel Files)"

Set objFso = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFso.GetFolder(strPath)


For Each objFile In objFolder.Files

If objFso.GetExtensionName(objFile.Path) = "xls" Then
Set objWorkbook = Workbooks.Open(objFile.Path)

' Takes the updated 1 Month Libor figures and pastes values into Data sheet
Windows("1 Month Libor Settings.xls").Activate
Range("A3:B65000").Select
Selection.Copy
objWorkbook.Activate
Sheets("Data").Select
Range("R2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Swap Reset Notice").Select
Range("L15").Select
Selection.Copy
Sheets("Data").Select
Range("L1").Select
Selection.End(xlDown).Select
Selection.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False

Sheets("Swap Reset Notice").Select
Range("A2").Select


DName = ActualFilename & " " & Format(Date, "mm-dd-yyyy") & ".pdf"
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=DDir & "\" & DName, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False


objWorkbook.Close True 'Save changes
End If

Next

End Sub