
Public Sub aggiornamento()
Sheets("ListBox").ListBox1.Clear
ActiveWorkbook.Connections("ea tblpolicy").Refresh
Z = Sheets("Tabella").Range("bd" & Rows.Count).End(xlUp).Row
For k = 1 To Z
Sheets("ListBox").ListBox1.AddItem Sheets("Tabella").Range("bd" & k).value
Next
End Sub |
