Isso funciona bem no meu computador (Windows Excel 2013)
Sub test()
a = "C:\Users\" & Environ$("UserName") & _
"\Documents\Workout Logs\" & _
Format$(Date, "mmmm-yyyy") & _
"\" & _
Format$(Date, "mmmm-dd") & Format$(Time, "hh-mm") & ".xls"
MsgBox (a)
End Sub
Resultados da Msgbox C:\Users\username\Documents\Workout Logs\May-2016\May-1910-13.xls
É a mesma coisa que apenas salva a string em uma variável em vez de salvar o documento.