VBA Find Method

SubSample ()DimSfzs as NewCollectionDimWS, WBS, DBS asWorksheetDimR as Long        SetWS = Thisworkbook.sheets ("Sheet 1")    SetWBS = Thisworkbook.sheets ("Wu Bao Zhuolu")    SetDBS = Thisworkbook.sheets ("Lo")    'Set dg = ws. Range ("c2:c37573")    Setdg = ws. Range ("C:c")    'Set dg = ws. Columns ("C")application.screenupdating=False         withWBS forR =1  to 356            IfDg. Find (. Range ("D"& R). Value) is  Nothing  Then                . Range ("F"& R). Value ="not in"            Else                . Range ("F"& R). Value ="in the"            End If        NextREnd  with     withDBS forR =1  to 1560            IfDg. Find (. Range ("D"& R). Value) is  Nothing  Then                . Range ("F"& R). Value ="not in"            Else                . Range ("F"& R). Value ="in the"            End If        NextREnd  withapplication.screenupdating=TrueEnd Sub

VBA Find Method