Sub Reopen_File()
'' http://stackoverflow.com/questions/22379546/vba-save-close-and-re-open-thisworkbook
'' Sub reopen()
Dim wb As Excel.Workbook
Set wb = ThisWorkbook
Dim pth As String
pth = wb.FullName
Application.OnTime Now + TimeValue("00:00:01"), Application.Workbooks.Open(pth)
wb.Close (True)
End Sub