hvebsr

I want to put the path and name of a spreadsheet, the page and number of pages and the date and time into the footer(s) and display it in Times New Roman 6 pts. I made the following macro: Range("A1").Select ActiveWindow.View = xlPageLayoutView` Application.PrintCommunication = False With ActiveSheet.PageSetup .LeftFooter = …

When I format the date so that a field gets the value as year-month-day-hour-minute-second, I omly see the date-portion, the rest is filled with zeros. I use: strDT = Format(Date, "yyyymmddhhmmss") I get '20140226000000' What goes wrong, or how can I get the desired result?