On Oct 29, 12:17*am, " wrote:
Below might give you some idea - tested on cells.

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("a3:c3:e3:g3")) Is Nothing Then
Call RefreshList
End If
End Sub

Sub RefreshList()
* On Error Resume Next

* Application.ScreenUpdating = False
* Application.EnableEvents = False

* Worksheets("HiddenSheet").Range("A1") = "Empathy"
* Worksheets("HiddenSheet").Range("A2") = "Persuation"
* Worksheets("HiddenSheet").Range("A3") = "Impact"
* Worksheets("HiddenSheet").Range("A4") = "Communication"

* With Worksheets("HiddenSheet").Columns(1)

* * *.Replace _
* * * What:=Worksheets("select").Range("A3").Value, _
* * * Replacement:="#N/A", _
* * * LookAt:=xlPart, _
* * * SearchOrder:=xlByRows, _
* * * MatchCase:=False

* * * .Replace _
* * * What:=Worksheets("select").Range("C3").Value, _
* * * Replacement:="#N/A", _
* * * LookAt:=xlPart, _
* * * SearchOrder:=xlByRows, _
* * * MatchCase:=False

* * * .Replace _
* * * What:=Worksheets("select").Range("E3").Value, _
* * * Replacement:="#N/A", _
* * * LookAt:=xlPart, _
* * * SearchOrder:=xlByRows, _
* * * MatchCase:=False

* * * .Replace _
* * * What:=Worksheets("select").Range("G3").Value, _
* * * Replacement:="#N/A", _
* * * LookAt:=xlPart, _
* * * SearchOrder:=xlByRows, _
* * * MatchCase:=False

* * *.SpecialCells(xlConstants, xlErrors).EntireRow.Delete

* End With

* ActiveWorkbook.Names.Delete Name:="list"
* ActiveWorkbook.Names.Add Name:="list",
RefersToR1C1:="=OFFSET(HiddenSheet!R1C1,0,0,COUNTA (HiddenSheet!C1),1)"

* Application.ScreenUpdating = True
* Application.EnableEvents = True

*End Sub

Hi Rumkus,

Its a good example, but valid only for a sheet...i am using a Form
having 4 Combos...