Thanks guys for all your help - much appreciated - it works perfectly!

"Tom Ogilvy" wrote:

Seems like it should be more direct, and it is:

Dim rng as Range
set rng = Thisworkbook.worksheets("Sheet1").Range("A1")
Thisworkbook.SaveAS "C:\Data\Import " & format(rng,"mmmm yyyy") & ".xls"

If rng contains a string rather than a date serial and you are having a
translation problem (day and month get transposed) then use

format(cdate(rng),"mmmm yyyy")
rather than
format(rng,"mmmm yyyy")


--
Regards,
Tom Ogilvy


"Geoff" wrote in message
...
Hi, I have a cell containing a date in the format ddmmyyy (South African
format) eg. 28/3/2006. I want to extract from this cell the value of the
month and year as "March 2006" and then use it to save the workbook name
in a
folder as ("C:\Data\Import March 2006.xls"). Any ideas how to do this in
code?