Sub
SaveCopy()
Dim
SaveDate
As
Date
Dim
SaveTime
As
Date
Dim
TaskTrackerPath
As
String
Dim
TaskTrackerHistoryPath
As
String
Dim
NewPath
As
String
Dim
SaveDataName
As
Variant
SaveDate =
CDate
(Format(Now,
"dd.mm.yy"
))
SaveTime = Format(Now,
"h:mm;@"
)
TaskTrackerPath = ActiveWorkbook.Path
TaskTrackerHistoryPath =
"\TT History"
If
Mid(TaskTrackerPath, InStrRev(TaskTrackerPath, "\")) <> TaskTrackerHistoryPath
Then
NewPath = TaskTrackerPath & TaskTrackerHistoryPath
End
If
If
Dir(NewPath, vbDirectory) =
""
Then
MkDir NewPath
End
If
SaveDataName = NewPath &
"\" & "
TT
" & "
_
" & SaveDate & "
_
" & SaveTime & "
.xlsm"
Application.DisplayAlerts =
False
ActiveWorkbook.SaveCopyAs SaveDataName
Application.DisplayAlerts =
True
End
Sub