For i = 1 To tsvs.Count
If Not tsvs(i).Value = “” Then
Wbook.Sheets(“Sheet1”).Cells(Rows, 2).Value = CDate(tsvs(i).StartDate)
Wbook.Sheets(“Sheet1”).Cells(Rows, 3).Value = tsvs(i).Value / 60
Wbook.Sheets(“Sheet1”).Cells(Rows, 4).Value = “hrs”
Rows = Rows + 1
Wbook.Close savechanges = yes
You need to create an empty Excel sheet named “OverAll.xls” in the same directory as the mpp file before running the macro. Click Alt + F11 to open VBE and copy the code above into a module and make sure “Microsoft Excel 1x.0 Object Library” checkbox is turned on ( [x] ) in References dialog box (Tools | References…). I did not have a chance to improve it. Pls consider testing it in a backup of your project plan and post for feedback. I hope it works.