Cara Mencari Nilai di Cell Menggunakan VBA fungsi Find

Kali ini Jasa Pembuatan Aplikasi VBA Macro akan menjelaskan bagaimana cara pencarian data di kolom dengan menggunakan fungsi Find, yang berada dikolom B.
Script Kodenya sebagai berikut :

Dim Cell As Range
Columns("B:B").Select
Set cell = Selection.Find(What:="123", _After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, SearchFormat:=False)

If cell Is Nothing Then
    'jika tidak ketemu lakukan sesuatu disini

Else
    'jika ketemu lakukan sesuatu disini
End If

Mudah mudahan bermanfaat, jika ada pertanyaan silahkan tanyakan di kolom komentar.