VBA Hapus nomor dari string
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
Mysterious Magpie