Insert:
ws.Activate
immediately after the For statement