Save an excel file base on cells' value

[Panoos64]

Hi to all of you!
I would much appreciate if you could provide me support, so that to write a VBA code, which should save the file, using as name the texts in cells "B3 & "B8" from file C:\Desktop\My folder\Inventory Card.xlsx into folder C:\Desktop\Path2\Inventory List
Therefore that, the file name which is in cells "B3" & "B8" have variable texts each one.
Thank you all in advance

 

[Jimmypop]

Hi there

Maybe try:

Sub sve()
    Dim Path        As String
    Dim filename    As String
    Path = "C:\Desktop\Path2\Inventory List\"
    filename = Range("B3").Value & " " & Range("B8").Value
    ActiveWorkbook.SaveAs filename:=Path & filename & ".xls", FileFormat:=xlNormal
End Sub

 

[Panoos64]

Thank u Jimmypop, It works perfect and nicely. Hv a great day!!

 

[Jimmypop]

No problem...glad we could assist and thanks for the feedback...