kleines Problem -->Pause

bitte Hilfe bei folgendem Problem:

Ich möchte zwischen in einem Makro zwischen einem Arbeitsschritt 5 Sekunden warten und dann fortsetzen, wie kann ich das machen?

z.B

Sub ghj()

Range("A5000").Select

--> hier soll Pause kommen

Range("A6000").Select

End Sub

Danke schonmal für Eure Hilfe

Steffen