View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.programming
Frank Kabel Frank Kabel is offline
external usenet poster
 
Posts: 3,885
Default Save file, refer filename to cell and change directory

Hi
try

Sub save_with_cell()
Dim fname
Dim path
path "C:\temp\"
fname = Worksheets("General info").Range("C47").Value
& "#" & Range("C26").Value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=path & fname
End Sub

-----Original Message-----
Hi,

I have the following macro to change my filename.

Sub save_with_cell()
Dim fname
fname = Worksheets("General info").Range("C47").Value

& "#" & Range("C26").Value
fname = fname & ".xls"
ActiveWorkbook.SaveAs Filename:=fname
End Sub

I want also get my file saved in a specific folder in a

other directory. Can anybody tell me how to do that
.