Hi,

I am trying to get a macro to extract a date from a cell (A1), then save the
file in the format "YYMM Forecast".

May I know what is the code I should type in?

I tried the following but it doesn't work:

Dim myMonth as String
Dim myFileName as String

myMonth = Format("H71:J71", "yymm")
myFileName = "C:\" & myMonth & " Forecast.xls"

ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlWorkbookNormal

Thanks.

There is a "Range" missing in the code.

myMonth = Format(Range("H71"), "yymm")

"Dolphinv4" wrote:

Hi,

I am trying to get a macro to extract a date from a cell (A1), then save the
file in the format "YYMM Forecast".

May I know what is the code I should type in?

I tried the following but it doesn't work:

Dim myMonth as String
Dim myFileName as String

myMonth = Format("H71:J71", "yymm")
myFileName = "C:\" & myMonth & " Forecast.xls"

ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlWorkbookNormal

Thanks.

And why do you have 3 cells in your range:

myMonth = Format("H71:J71", "yymm")

That may affect the answer.

Dolphinv4 wrote:

Hi,

I am trying to get a macro to extract a date from a cell (A1), then save the
file in the format "YYMM Forecast".

May I know what is the code I should type in?

I tried the following but it doesn't work:

Dim myMonth as String
Dim myFileName as String

myMonth = Format("H71:J71", "yymm")
myFileName = "C:\" & myMonth & " Forecast.xls"

ActiveWorkbook.SaveAs Filename:=myFileName, FileFormat:=xlWorkbookNormal

Thanks.

--

Dave Peterson