Code: Select all
Worksheets(rC.Value).Move
' **** Begin of modification ****
Dim sQue As String
sQue = oFolder
sQue = Mid(oFolder, Len(sTopPath) + 1)
sQue = Left(sQue, InStrRev(sQue, "\") - 1)
ActiveWorkbook.SaveAs sDestPath & sYear & " - " & Replace(sQue, "\", " - ") & " - " & rC.Value & ".xlsx", FileFormat:=51
' **** End of modification ****
ActiveWorkbook.Close False