how to add delay after a sub, then execute new sub?

I have this macro:

Private Sub Workbook_Activate()
On Error Resume Next
Application.DisplayAlerts = False
End Sub

Private Sub Workbook_Open()
On Error Resume Next
Application.DisplayAlerts = False
End Sub

I'd like to add a 2 second delay after the above code is executed, then add the following code:

ActiveWorkbook.RefreshAll

How could this be done? Thanks