**VBA:**  

    Sub rep()
    application.displayalert = false
    twb = ThisWorkbook.Path & "\" & ThisWorkbook.Name
    Workbooks.Open (twb)
    End Sub

*It keeps opening the same excel spreadsheet