Here's one more way...

Sub GetInitialLetters()
Dim X As Long, LastRow As Long
Const StartRow As Long = 1
LastRow = Cells(Rows.Count, "C").End(xlUp).Row
For X = StartRow To LastRow
Cells(X, "B").Value = Left(Cells(X, "C"), Evaluate( _
"MIN(FIND({0,1,2,3,4,5,6,7,8,9},C" & _
X & "&""0123456789""))") - 1)
Next
End Sub

--
Rick (MVP - Excel)



"cstang" wrote in message
...
Hi,
Can anyone pls help me with...Thanks in advance.

ColumnC
P5704
P5822(AB)
CA072407
P6384A
SGA 525
K2201/367
K402AA

Result in ColumnB as:
P
P
CA
P
SGA
K
K
Thanks in advance.

CSTANG