tüm sayfada arama yaptırmak

[melih3365]

iyi günler asagıdakı kod sadece bır excel sutununda arama yapıyor sayfanın tamamında veya ıkı kolonda nasıl arama yaptırabılırım.

Private Sub OptionButton1_Click()
Dim hucre As Range
Label9.Caption = "Telefon Rehberi Tüm İsim Listesi"
analist.Clear
For Each hucre In Range(Range("B3"), Range("B" & Sayfa1.[A1].Value + 2))
If hucre.Value <> "" Then analist.AddItem hucre
Next hucre
bultxt = Empty
bultxt.SetFocus
End Sub