Sub Save()
' Save Macro
Set wshShell = CreateObject("WScript.Shell")
strUser = wshShell.ExpandEnvironmentStrings("%USERNAME%")

currentYear = DatePart("yyyy", Now)
currentMonth = DatePart("m", Now)
currentMonthLength = Len(currentMonth)
    If currentMonthLength = 1 Then
        currentMonth = "0" & currentMonth
    End If
currentDay = DatePart("d", Now)
currentDayLength = Len(currentDay)
    If currentDayLength = 1 Then
        currentDay = "0" & currentDay
    End If
currentDate = currentYear & currentMonth & currentDay

currentHour = DatePart("h", Now)
currentHourLength = Len(currentHour)
    If currentHourLength = 1 Then
        currentHour = "0" & currentHour
     End If
currentMinute = DatePart("n", Now)
currentMinuteLength = Len(currentMinute)
    If currentMinuteLength = 1 Then
        currentMinute = "0" & currentMinute
    End If
currentSecond = DatePart("s", Now)
currentSecondLength = Len(currentSecond)
    If currentSecondLength = 1 Then
        currentSecond = "0" & currentSecond
    End If
currentTime = currentHour & currentMinute & currentSecond

ChDir "C:UsersdocenkocDesktop"
Sheets("Upload").Select
'ActiveWorkbook.SaveAs Filename:= _
    '"C:UsersdocenkocDesktop" & Range("C2") & "_" & currentDate & "_" & currentTime & "_" & strUser, FileFormat:= _
   ' xlExcel8, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
   ' , CreateBackup:=False

End Sub