I am trying to save one worksheet in my workbook as a .txt file. I
want the name of the file to equal
Worksheets("Weekly").Range("A1"). (which will change montly, that's
why it cannot be a static defined name)
My Macro runs, but the problem is that it always equals the name of my
variable, which is "ThisFile". I need to save it in a specific
location U:\myfolder\ThisFile
Please review code below and provide assistance if you can.
Thanks!


Sub createplan()

ThisFile = Worksheets("Weekly").Range("A1")
ActiveWorkbook.SaveAs Filename:= _
"U:\myfolder\ThisFile", FileFormat:=xlText _
, CreateBackup:=False

End Sub

On Mar 3, 1:10 pm, meghant...@hotmail.com wrote:
> I am trying to save one worksheet in my workbook as a .txt file. I
> want the name of the file to equal
> Worksheets("Weekly").Range("A1"). (which will change montly, that's
> why it cannot be a static defined name)
> My Macro runs, but the problem is that it always equals the name of my
> variable, which is "ThisFile". I need to save it in a specific
> location U:\myfolder\ThisFile
> Please review code below and provide assistance if you can.
> Thanks!
>
> Sub createplan()
>
> ThisFile = Worksheets("Weekly").Range("A1")
> ActiveWorkbook.SaveAs Filename:= _
> "U:\myfolder\ThisFile", FileFormat:=xlText _
> , CreateBackup:=False
>
> End Sub

Use the & sign to concatenate strings:

Sub createplan()

ThisFile = Worksheets("Weekly").Range("A1")
ActiveWorkbook.SaveAs Filename:= _
"U:\myfolder\" & ThisFile, FileFormat:=xlText _
, CreateBackup:=False

End Sub

Cheers!
Nate