Creating a member list for Custom3 dimension

Question

Hello gurus. I'm trying to create a member list for my custom3 dimension based on the UD1. I keep getting this error: Wrong number of arguments or invalid property assignment: HS.AddMember ToList. Here's my script. Can someone let me know what I'm doing wrong? Thanks
Sub EnumMemberLists()
Dim aCustom3Lists(2)
Select Case HS.Dimension
Case "Custom3"
     aCustom3Lists(1) = "Reporting Sector - SPS"
     aCustom3Lists(2) = "Tax Provision - US"
HS.SetMemberLists aCustom3Lists
End Select 'Dimension
End Sub 'EnumMemberLists
Case "Custom3"
Select Case HS.MemberListID
Case 1
     'Reporting Sector
     ELi=Hs.Custom3.List("","[Base]")
     For i = Lbound(ELi) to Ubound(ELi)
     If (StrComp(HS.Custom3.UD1(ELi(i)),"SPS",vbTextCompare)=0) Then
     HS.AddMemberToList (""),ELi(i)
     End If
End Select ' Case HS.MemberListID

Answer 1

Hi,
An obvious reason that your code throws a number of arguments error to the AddMemberToList function, is that the line should read like this:
HS.AddMemberToList ELi(i)However, in your code I see that there are also some incomplete structures, like the for-loop is not ended with a next and the whole paragraph after "End Sub 'EnumMemberLists" should be followed by a "Sub EnumMembersInList()". But I assume that you have omitted those in order to be short.
Regards,
Kostas