Active Directory Data Using Macro

Hi Everyone,
Looking for help (again) ^^
Been doing some search here and there looking for a good solution to extract information/data on our Active directory.
Basically what i want to do is to be able to pull up all the members of groups on my AD.
Say I will just put the group name on one cell and when I run a Macro, it will return the AD Group list of users on another column.
I'm sure this is possible, Im just not sure how it can be done.
Hope someone out there could help or lead me to the right direction.

Many thanks,
Vince

Here's a sample sub for copying the users in a specified group to a worksheet (output from A2):

Sub GetGroupList(strGroup As String)
   On Error Resume Next
   Dim objConnection, objCommand, objRecordset, objRoot, strDomain
   Const ADS_SCOPE_SUBTREE = 2
   Set objRoot = GetObject("LDAP://rootDSE")
   'Work in the default domain
   strDomain = objRoot.Get("defaultNamingContext")
   
   Set objConnection = CreateObject("ADODB.Connection")
   Set objCommand = CreateObject("ADODB.Command")
   objConnection.Provider = "ADsDSOObject"
   objConnection.Open "Active Directory Provider"
   Set objCommand.ActiveConnection = objConnection
   
   objCommand.Properties("Page Size") = 1000
   objCommand.Properties("Searchscope") = ADS_SCOPE_SUBTREE
   
   objCommand.CommandText = _
      "SELECT SAMAccountName FROM 'LDAP://" & strDomain & _
          "' WHERE objectClass='user' And groupName = '" & strGroup & "' ORDER BY SAMAccountName"
   Set objRecordset = objCommand.Execute
   
   objRecordset.MoveFirst
   If Not objRecordset.EOF Then ActiveSheet.Cells(2, 1).CopyFromRecordset objRecordset
   objRecordset.Close
   objConnection.Close
End Sub

Hi everyone,
Thank's for the feedback.
What i really wanted to achieve is described on the image below.
I hope somebody will be able to help as I'm very desperate.


Thank you in advance ^^

please use the forum tools to upload files. Untrusted external websites are not welcome for file uploads, especially since many are blocked by corporate firewalls.

You have attached a picture, why not attach a sample workbook so somebody can work with it.

I already gave you sample code, but you appeared to ignore it.

Do you have permissions to read AD?

Hmm, try this one. (though if you are the admin, you ought to have better tools than Excel for this! )

That's a different question, so should be posed in a new thread.