Below is an example of a subroutine that looks across row 1 and creates distribution lists for each of the names found in those cells in the Outlook Contacts folder. You need to go to 'Tools > References' and set a reference to the Outlook library for the version of Office you have.
Code:
Sub MakeOLdistrList()
Dim olApp As Outlook.Application
Dim myDistList As Outlook.DistListItem
Set olApp = New Outlook.Application
colCount = ActiveSheet.UsedRange.Columns.Count
For C = 1 To colCount
Set myDistList = olApp.CreateItem(olDistributionListItem)
With myDistList
.DLName = Cells(1, C).Value
.Save
End With
Next C
Set olApp = Nothing
End Sub
Bookmarks