Save As code in path from a cell or textbox1

[yoko21]

Hi Guys,

I need a vba code to "save as" a workbook.xlsm into .xlsx.

I used the following code but its not working

   ActiveWorkbook.SaveAs FileName:=Workbooks("Test1.xlsm").Sheets("hello").Range("C3").Value & "\" & Workbooks("Test1.xlsm").Sheets("hello").Range("C2").Value & "_TestSave.xls" _
        , FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

Cell C3 has the folder path which is linked to textbox1 as defined by the user. Cell C2 has the file name which is linked to textbox2 as defined by the user. I also want to include "TodaysDate" at the end of the filename.

Thanks.

[patel45]

   
FName=Workbooks("Test1.xlsm").Sheets("hello").Range("C3").Value & "\" & Workbooks("Test1.xlsm").Sheets("hello").Range("C2").Value & "_TestSave.xls"
msgbox Fname ' check if the name is correct
ActiveWorkbook.SaveAs FileName:=Fname, FileFormat:=xlExcel8, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False

[HaHoBe]

Hi, yoko21,

maybe try

With Workbooks("Test1.xlsm").Sheets("hello")
   ActiveWorkbook.SaveAs Filename:=.Range("C3").Value & "\" & .Range("C2").Value & "_TestSave_" & Format(Date, "YYMMDD") & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End With

Ciao,
Holger

[yoko21]

Hi, yoko21,

maybe try

With Workbooks("Test1.xlsm").Sheets("hello")
   ActiveWorkbook.SaveAs Filename:=.Range("C3").Value & "\" & .Range("C2").Value & "_TestSave_" & Format(Date, "YYMMDD") & ".xlsx", _
        FileFormat:=xlOpenXMLWorkbook, Password:="", WriteResPassword:="", _
        ReadOnlyRecommended:=False, CreateBackup:=False
End With

Ciao,
Holger

Perfect!!! Thanks. solved!