Sub BackUp_QAT()
Dim FromPath$, ToPath$, XL$, OL$
FromPath = "C:\Users\vfcm\AppData\Local\Microsoft\Office\"
ToPath = "D:\Back-ups\QAT Backup\"
XL = "Excel.OfficeUI"
OL = "olkexplorer.OfficeUI"
FileCopy FromPath & XL, ToPath & XL
FileCopy FromPath & OL, ToPath & OL
End Sub