Untitled

Private Sub Worksheet_Activate()
   ActiveWorkbook.RefreshAll
End Sub