Visual Basic para Aplicaciones - problema con parpadeo de hoja de calculos

hola a todos: Les escribo ya que en realidad tengo varios problemas de los cuales no puedo resolver y si ustedes pueden darme una mano.
Imaginen que tienen en la hoja 1 una combobox y una listbox, en cambio en la hoja 2 hay una tipo de base de datos. El funcionamiento es el siguiente cuando elijo un nombre en la combobox la listbox me da todos los datos existentes en la hoja 2. El programa funciona de maravillas el problema esta que me parpadea llendo a la otra hoja. Intente con applicationscreenupdating y no lo actualiza. Les mando el programa que va a la combo
Sub cargar ()
Sheets(2).select
for each cell in range ("A3:A10000")
if cell.value = sheets("1").combobox1.text then
x = cell.offset(0,0).value
y = cell.offset(0,1).value
z = cell.offset(0,2).value
worksheets("1").listbox1.additem x
worksheets("1").listbox1.list(n,1) = y
worksheets("1").listbox1.list(n,2) = z
n = n + 1
end if
next
Sheets(1).select

Sub cargar()
Application.ScreenUpdating = False
Sheets(2).Activate
For Each cell In Range("A3:A10000")
If cell.Value = Sheets("1").combobox1.Text Then
With Worksheets("1").listbox1
.AddItem cell.Offset(0, 0).Value
.List(n, 1) = cell.Offset(0, 1).Value
.List(n, 2) = cell.Offset(0, 2).Value
End With
n = n + 1
End If
Next
Sheets(1).Activate
Application.ScreenUpdating = True
End Sub

Saludos desde Baires, JuanC

hola juanC:
No estoy seguro si escribi el problema que tengo cuando pongo application.screenupdating, pues sucede que cuando los utilizo no me actualiza la listbox.
saludos

Debo decir que me gusto los cambios que hiciste ya que reconozco que no pense en esos cambios. El problema persiste ya que hace lo mismo que con el mio programa si elimino el updating funciona pero parpadea. Si tenes alguna otra idea te agradezco por la ayuda.
saludos

prueba con esto...

Sub cargar()
Dim rng As Range
Set rng = Sheets(2).Range("A3:A10000")
For Each cell In rng
If cell.Value = Sheets("1").combobox1.Text Then
With Worksheets("1").listbox1
.AddItem cell.Offset(0, 0).Value
.List(n, 1) = cell.Offset(0, 1).Value
.List(n, 2) = cell.Offset(0, 2).Value
End With
n = n + 1
End If
Next
Set rng = Nothing
End Sub

Saludos desde Baires, JuanC

Gracias amigo: Debo felicitarte porque funciona perfecto. Te agradezco no solo por la eficiencia mas aun porque nadie me respondio en un foro con la rapidez que lo hiciste conmigo.

gracias realmente