To Close workbook and open again

To Close workbook and open again

Sub CloseMe()
    Application.OnTime Now + TimeValue("00:00:10"), "OpenMe"
    ThisWorkbook.Close False
End Sub

Sub OpenMe()
    MsgBox "Done saving Calculations is now working"
End Sub
Sub save()
Application.Calculation = xlAutomatic
sbProtectSheet
ThisWorkbook.save
Application.Calculation = xlManual
CloseMe
OpenMe
'Application.Workbooks.Open (ThisWorkbook.FullName)
'Application.Calculation = xlManual

'MsgBox "Done saving Calculations is now working"
End Sub