Save File in Desired Location & Name
Change the names to protect the innocent:
Sub SaveProperly()
Dim wb As Workbook, dt As String
Set wb = ActiveWorkbook
st = Format(Date - 1, "mm_dd_yyyy")
fname = "C:\Documents and Settings\jravensw\Desktop\Tariff IHE - " & st &
".xls"
MsgBox st
wb.SaveAs Filename:=fname
End Sub
--
Gary''s Student - gsnu200909
"Kam" wrote:
Hi,
Need ur help to design macro which can save the file in desired location &
save with desired name. I do run a Macro on daily basis, which pulls data
from system based on Yesterday dates. Can you please write a macro.
File Name Should be : Tariff IHE - "Yesterday Date"
File Location : C:My Documents/Reports/
Best Regards,
Kam
|