save workbook with name and date stamp

Hi Experts excel 2007

I am trying to save active workbook.saveas filename:= "\\jjjdje.com\file2\"& "name" & "dd mmm yy" & ".xslm"

Not sure what's wrong here
route217Asked:
Who is Participating?
 
Rgonzo1971Connect With a Mentor Commented:
HI,

pls try

WbkName = Left(ActiveWorkbook.Name, InStrRev(ActiveWorkbook.Name, ".") - 1)
ActiveWorkbook.SaveAs Filename:="\\jjjdje.com\file2\" & WbkName & "_" & Format(Date, "dd mmm yy") & ".xslm

Open in new window

Regards
0
 
route217Author Commented:
0
 
route217Author Commented:
How would I change file type to macro enabled worksheet
0
 
Rgonzo1971Commented:
Maybe this

ActiveWorkbook.SaveAs _
Filename:="\\jjjdje.com\file2\" & WbkName & "_" & Format(Date, "dd mmm yy") & ".xslm", _
FileFormat:=xlOpenXMLWorkbookMacroEnabled

Open in new window

Regards
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.