correct statement to return time

**tryer** · 11-29-2008, 12:46 PM

I have the following code

d = ThisWorkbook.path & "\Current Version " & "_" & Sheets("data").Cells(1, 209).Value & "_" & Day(Date) & "_" & Month(Date) & "_" & Year(Date) & ".xls"

which contains the workbook name, and date, the code opens a new workbook and saves it under this name. I would like to add the time to this so that if i later run the program again it will have a different filename (different time)
Can anyone help with the correct statement to return the time?

**JBeaucaire** · 11-29-2008, 12:55 PM

Does this do what you want:

d = ThisWorkbook.path & "\Current Version " & "_" & Sheets("data").Cells(1, 209).Value & "_" & Format(dDate,"mm-dd-yyyy_hhnn) & ".xls"

**tryer** · 11-29-2008, 01:07 PM

Thank for the reply. nfortunately I get a compile error message saying expected seperator or ) with the . prior to xls highlighted, I cant see any missing brackets

**arthurbr** · 11-29-2008, 01:09 PM

Could it be there is a " missing?

Format(dDate,"mm-dd-yyyy_hhnn")

**tryer** · 11-29-2008, 01:16 PM

Thanks Arthur your right there was a " missing. this code now works but I think I must be missing something it currently returns the day/date as 12-30-1899_0000.xls so presumably I have to pick up the system date and time from somewhere?