Macro - File Save As

  • Thread starter Thread starter tucopup
  • Start date Start date
T

tucopup

I'm using the macro below to save a file after clicking a button to
certain cell value. I've moved the start file to a different folder
but the saved version go back to the old one. I can't figure out wh
that is based on the info in the macro.


Sub SaveAs()

Dim a_str1 As String
Dim sname As String

a_str1 = ActiveSheet.Cells(5, 2).Value

sname = Trim(a_str1) + Trim(b_str1) + ".xls"

ActiveWorkbook.SaveAs Filename:=sname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=Fals
 
I'm not sure what's in a_str1, b_str1, but if you specify the folder you want to
save the workbook to, it might be easier and safer.

ActiveWorkbook.SaveAs Filename:=thisworkbook.path & "\" & sname, _
FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False

If I understood correctly.
 
Back
Top