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