用于更新ListBox的定时循环

我想循环这个具体。

ListBox2.Clear Dim r As Long Dim m As Long Dim wsh As Worksheet Set wsh = Worksheets("ToolData") m = wsh.Range("A" & wsh.Rows.Count).End(xlUp).Row For r = 2 To m If wsh.Range("E" & r) = "No" Then With Me.ListBox2 .AddItem wsh.Range("B" & r) .Column(1, .ListCount - 1) = wsh.Range("C" & r) .Column(2, .ListCount - 1) = wsh.Range("F" & r) .Column(3, .ListCount - 1) = wsh.Range("J" & r) .Column(4, .ListCount - 1) = wsh.Range("K" & r) End With End If Next r 

我试图自动更新列表框。 我将如何使用定时循环更新我的列表框？ 甚至是实时的？