In the attached file you still have ...Find("Race-" & i + 1... instead of ...Find("Race " & i + 1...

Artik