saving sheet as new workbook
 

Hi,
i have managed to write this which works ok for mt sheet saving as workbook:

Namer = ActiveSheet.Name
Location = "C:\Documents and Settings\myname\Desktop\Invoices"
yearly = Format(Date, "yy")
Dater = Format(Date, "mmmm")
Clienter = Range("B23").Value
detailer = Range("B32").Value

ActiveSheet.Copy
ActiveWorkbook.SaveAs Location & "\" & Dater & " " & yearly & "\" & Namer &
" " & Clienter & " " & detailer

however, i need it to save in the month folder as specified on the onvoice
date but currently it is taking the month of today and searching for that
folder. Can i take the cell data , range("H14"), and format the value to
month only to get the variable to search for the month only??

thanks, Nigel

saving sheet as new workbook
 

Is it Dater that's the problem?

maybe you can use:

Dater = Format(activesheet.range("h14").value, "mmmm")

to get that month.

Nigel wrote:

Hi,
i have managed to write this which works ok for mt sheet saving as workbook:

Namer = ActiveSheet.Name
Location = "C:\Documents and Settings\myname\Desktop\Invoices"
yearly = Format(Date, "yy")
Dater = Format(Date, "mmmm")
Clienter = Range("B23").Value
detailer = Range("B32").Value

ActiveSheet.Copy
ActiveWorkbook.SaveAs Location & "\" & Dater & " " & yearly & "\" & Namer &
" " & Clienter & " " & detailer

however, i need it to save in the month folder as specified on the onvoice
date but currently it is taking the month of today and searching for that
folder. Can i take the cell data , range("H14"), and format the value to
month only to get the variable to search for the month only??

thanks, Nigel

--

Dave Peterson