Hi everyone
Because in my worksheet I have 10 listboxes i had to write ten such codes:

    If Target.Cells.Address = "$G$23" And Cells(23, 1).Value <> "" Then
            With ListBox1          'this is for the ListBox1 only... i have to repeat this entire code for each ListBox 
                .Visible = True
                .Activate
                .ListFillRange = "=lista" & Worksheets("CLIENTI").Range("J2").Value
            End With
    End If
I'm trying to replace these 10 codes with something like :

    If Target.Column = 7 And (Target.Row >= 23 And Target.Row <= 32) And Range("A" & Target.Row) <> "" Then
        With ListBox & Target.Row - 21
                .Visible = True
                .Activate
                .ListFillRange = "=lista" & Worksheets("CLIENTI").Range("J" & Target.Row - 21).Value
            End With
    End If
wich isn't working... maybe you guys can help me with that?

thanks alot!