Code:

```
Private Sub Userform_Initialize()
Dim oExcel As Excel.Application
Dim oWB As Workbook
Set oExcel = New Excel.Application
Application.ScreenUpdating = False
Set sourcedoc = oExcel.Workbooks.Open(FileName:="ihavethisfilledoutinmycodeanditworks")
Dim arBand()
Dim arAlbum()
Dim arSong()
arBand = Range("A2:A358")
arAlbum = Range("B2:B358")
arSong = Range("C2:C358")
sourcedoc.Close SaveChanges:=wdDoNotSaveChanges
Dim arOnlyBand()
Dim arOnlyAlbum()
Dim arOnlySong()
Dim n, y, z As Integer
Dim x
n = 1
y = 1
z = 1
For x = 1 To 356
If arBand(x, 1) <> arBand(x + 1, 1) Then
arOnlyBand(n, 1) = arBand(x, 1)
n = n + 1
Else
End If
If arAlbum(x, 1) <> arAlbum(x + 1, 1) Then
arOnlyAlbum(y, 1) = arAlbum(x, 1)
y = y + 1
Else
End If
If arSong(x, 1) <> arSong(x + 1, 1) Then
arOnlySong(z, 1) = arSong(x, 1)
z = z + 1
Else
End If
Next x
End Sub
```

This is what i put together thus far.... and i know it's the farthest thing from what I am looking to do... i originally had arAll as A2:C358 and only that string in the code, but when I was expecting to get back:

arAll('U2','The Joshua Tree','Song1'), arAll('U2','The Joshua Tree','Song2'), arAll('U2','Achtung Baby', Song1) arAll('A Perfect Circle','Danger','Song 1')

I got this back instead:

arAll(1,'U2'), arAll(2,'The Joshua Tree'), arAll(3,'Song 1'), arAll(4,'U2'), arAll(5,'The Joshua Tree'), arAll(6,'Song2'), etc etc.....

And I didn't know what to do with that, so then i figured i would create a range for each of the columns and then get my results and then try to rig up some sort of looping mechnism to put them back together, but it's not working at all like i thought.

I know that the above code is completely wrong... but at this point, I have written and deleted so many different things that I'm just plain confusing myself at this point :/