Adding Contact list in Macro

[treaves04]

I would like to add a group of people whom I already have in my contact list to a single email. Currently I use this code for each person on the list and add them individually:


Set objOutlookRecip = .Recipients.Add("Individual@address.net")
objOutlookRecip.Type = olBCC


However, this means editing the Macro each time I add or remove someone from the list. Any suggestions?