ник: snipe
sNewFileName = "c:\" & "Папка c " & Format(Time, "hh.mm.ss") & " ) "
должно быть так
sNewFileName = "c:\" & "Папка c " & Format(Time, "hh.mm.ss") & " \ " & [имя файла].[расширение файла]
вообщем должно получиться
"c:\Папка с 19:00\заготовка1.xlsx"
а у вас только вот так получается
"c:\Папка с 19:00)"