Private Sub Worksheet_Change(ByVal Target As Range)
    Application.EnableEvents = False
    ThisWorkbook.RefreshAll
    Application.EnableEvents = True
End Sub