"Save As" data in cell P1?

[seilermike]

I have a .xlsm workbook where I need to save the file "name" as the data in cell P1. The file can be saved to where ever the "default" save location is... This should be simple but I cannot seem to figure it out. Any/all help is greatly appreciated.

 

[XLfriend777]

Hi seilermike - Try the code below after adjusting for your desired path. Hope this helps.

Sub seilermike_SaveAs()
Dim filename As String
filename = Cells(1, 16).value
fullpath = "C:\Excel\test\" & filename
ActiveWorkbook.SaveAs fullpath
End Sub