VBA : Populate list

[dek]

Hi,

Problem:
Require to create a list of "global outlook contacts" in Column A for given "inhouse staff member" in Column B.

I cannot figure out how to loop through each "global outlook contact" and assign to an "inhouse staff member".

See attachment.

[Bob Phillips]

[vba]

Sub Example()
Dim aryNames
Dim i As Long

aryNames = Split(Range("AE3"), ";")
For i = LBound(aryNames) To UBound(aryNames)

MsgBox (aryNames(i))
Next i
End Sub
[/vba]