Does this speed things up any when populating the listbox?
With ListBox1
.RowSource = ""
.ColumnCount = rng.Columns.Count
.List = rng.Value
End With
It's not clear, to me anyway, what exactly you are updating but it only looks like it's a few cells so I don't know why it's taking 2 seconds.
Bookmarks