Auto file naming with macro

[Matt G]

Hi,

I have a macro that rearranges the info in a file the way I want it. I
would to be able to save the updated file automatically using a static
beginning then adding a name part from within the worksheet. I don't want to
"SaveAs"; I want to overwrite the original file

For example: I want the file named "Account changes for 0XXX" where XXX
would be Left(C2, 3)

Any help is appreciated

 

[ryguy7272]

Can you get this to work?

Sub Macro1()
Dim SaveHere As Variant
SaveHere = Range("B2")
ActiveWorkbook.SaveAs Filename:= _
"C:\SaveHere.xls", FileFormat:=xlExcel8
End Sub


Regards,
Ryan---

 

[Jacob Skaria]

Hi Matt

Greetings. Please try the below code

Application.DisplayAlerts = False
ActiveWorkbook.SaveAs "c:\Account changes for 0" & Left(Range("C2"), 3)
Application.DisplayAlerts = True

Cheers!!