Hello,

Thank you for taking the time to read my thread. I would greatly appreciate if someone could assist me with the following personal project:

Goal - Create a music list database that allows me to
1. filter songs by both a drop down list as well as key word search functionality (whether it's a partial or a full word to a song),
2. insert select boxes for those retrieved songs (in order to extract 3 columns of data - genre, song and artist - to a word document), and
3. click on a particular song to obtain the actual lyrics (found on an entire different word document) via hyperlinks.

In order for the music database (4 columns consisting of listing order 1,2,3,etc, genre, song and artist) not to be touched, I've decided to hide it on a separate worksheet. Currently, I've used data validation and advanced filter features to extract the songs for a selected genre (with a drop down) on my GUI worksheet, and used a macro to automate list updates and filter. Here is the code being used:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim rngCrit As Range

Set rngCrit = Sheet5.Range("CriteriaRng")
Application.EnableEvents = False

Select Case Target.Address
Case Range("SelCat").Address
rngCrit.Cells(2, 1).Value = Target.Value
End Select

If Range("SelCat").Value = "" Then
rngCrit.Cells(2, 1).ClearContents
End If

If Not rngCrit Is Nothing Then
Sheet2.Range("MusicTable").AdvancedFilter _
Action:=xlFilterCopy, _
CriteriaRange:=rngCrit, _
CopyToRange:=Range("ExtractMusic"), Unique:=False
End If

exitHandler:
Application.EnableEvents = True
Exit Sub
errHandler:
Resume exitHandler

End Sub