lngLastC = .Range("C65536").End(xlUp).Row
 Dim rn As Integer
 rn = 1
 ReDim strName(intNumRunners)
 For Each rngRunners In .Range("C3:C" & lngLastC)
 strName(rn) = rngRunners.Value
 [B]strName(rn) = Replace(strName, IsNumber, "")[/B]
 strName(rn) = RTrim(strName(rn))
 rn = rn + 1
 Next rngRunners