Macro to close the current worbook without saving and reopen the same workbook

Sub ClosewithoutsaveAndReopen()

'Defines Variables
Dim nameOfCurrentWorkbook As Variant
Dim nameOfCurrentWorkbookPath As Variant

'Finds the name of the current workbook
    nameOfCurrentWorkbook = ActiveWorkbook.Name
'finds the current path of hte workbook
    nameOfCurrentWorkbookPath = ActiveWorkbook.Path
    ActiveWorkbook.Close False
'Reopens the same worbook you just closed
    Workbooks.Open (nameOfCurrentWorkbookPath & "\" & nameOfCurrentWorkbook)
End Sub