VBA Solution To Extract Initials From A text String Name

[Ark68]

I have a text string (an individual's name ... surname, given) in B16 eg. "Martin, Allan"
I am looking for a VBA solution to extract the individual's initials to be put in cell C16.

In this example ... C16 = "AM"

I know how to get the "M", but I am not sure how to isolate the first letter after the space.

 

[FDibbins]

Not sure how to do this with VBA, but this regular formula will work for you, provided here are just 2 names...
[Table="width:, class:grid"][tr][td] [/td][td]

A​

[/td][td]

B​

[/td][/tr]
[tr][td]

1​

[/td][td]Martin, Allan[/td][td]AM[/td][/tr]
[/table]
B1=MID(A1,FIND(" ",A1)+1,1)&LEFT(A1,1)
perhaps you can adapt that to your code, although a regular formula will do just as well.

 

[Ark68]

Hello Ford, thank you. That was much simpler than I had anticipated. Thank you!

 

[mart37]

Dim d() As String
r = "Martin, Allan"
d() = Split(r, ", ")
i = Left(d(1), 1) & Left(d(0), 1)

 

[FDibbins]

Im happy it helped you