Vlookup table to find email addresses

Ok, thanks for that.
How about

   Dim Fnd As Range
   Dim Ary As Variant, Nary As Variant
   Dim i As Long
   
   Ary = Array("Commercial Connections", "Art of Acoustics", "Artworks")
   ReDim Nary(UBound(Ary))
   If Me.ckboxAcoustics.Value Then
      Me.lboSubcontractors.List = Ary
      For i = 0 To UBound(Ary)
         Set Fnd = Range("tblEmails").Find(Ary(i), , , xlWhole, , , False, , False)
         If Not Fnd Is Nothing Then Nary(i) = Fnd.Offset(, 1).Value
      Next i
      Me.lboEmails.List = Nary
   End If