问将pdf保存为包含多个单元格的单元格名称

EN

=VLOOKUP('Work Order'!F26,'Fort McMurray File Services'!A2:AJ1515,6,FALSE)
=VLOOKUP('Work Order'!F26,'Fort McMurray File Services'!A2:AJ1515,6,FALSE)

Private Sub filename_cellvalue()
    'Update 20141112
    Dim Path As String
    Dim filename As String

    Path = "C:\Users\meghan lewis\Desktop\MASS DEMO"
    filename = .Range("C7").Value & .Range("D7").Value & _
               .Range("E7").Value & .Range("F7").Value & _
               .Range("G7").Value & .Range("H7").Value & .Range("I7").Value
    ActiveWorkbook.SaveAs filename:=Path & filename & ".PDF", FileFormat:=xlNormal
End Sub


Sub SaveAsPDF()
    Dim fName As String

    With Worksheets("WORK ORDER")
        fName = .Range("C7").Value & .Range("D7").Value & _
                .Range("E7").Value & .Range("F7").Value & _
                .Range("G7").Value & .Range("H7").Value & _
                .Range("I7").Value
    End With

    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, filename:= _
    "C:\Users\meghan lewis\Desktop\MASS DEMO & fName", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
End Sub