Hello,

Here's how...

For Each k In ks
MsgBox k.name
'Pause 10 seconds
Application.Wait(Now + TimeValue("0:00:10"))
Next k

Sincerely,
Leith Ross