combobox taki veriyi sayfayı kapatmadan usermenu aktifken güncelleme

[cenderus]

hocalarım;
aşağidaki kod ile comboboxlara veri geliyor ama koda nasıl bir eklenti yapmalıyımki bu verilerin topladığı sayflarda bir değişiklik yada ekleme yapıldığında userform kapatılıp açılmadan yada sayfa terar açılmadan anında refresh olsun

kod :


Dim sh As Worksheet

Private Sub ComboBox1_Change()
Dim col As New Collection

Set sh = Sheets(ComboBox1.Value)

ComboBox3.Clear: ComboBox4.Clear: ComboBox5.Clear

If ComboBox1.ListIndex >= 0 Then

With sh
For j = 4 To .Cells(2, 256).End(xlToLeft).Column Step 5
ComboBox3.AddItem .Cells(2, j)
Next j
ComboBox3.ListIndex = -1

For i = 4 To .Cells(65536, 2).End(xlUp).Row
ComboBox5.AddItem .Cells(i, 2)
Next i
ComboBox5.ListIndex = -1

On Error Resume Next
For j = 4 To .Cells(3, 256).End(xlToLeft).Column
col.Add CStr(.Cells(3, j)), CStr(.Cells(3, j))
If Err > 0 Then
Err = 0
Else
ComboBox4.AddItem .Cells(3, j)
End If
Next j
On Error GoTo 0
ComboBox4.ListIndex = -1
End With


End If
End Sub