エクセルVBAでの検索機能について

Message#1 2015年2月5日(木)23時12分
From: arg135

エクセルのVBAをあるキーワードの検索を行いたいと考えています。

Sheets1シートのリストの中からSheets2シートの商品を検索して見つかった
色をかえるというものです。

マクロの記録から行うのはできたのですが、そこからカスタマイズする方法が分かりませんでした。

おそらくループ処理でまわしていくのだと思うのですが、For～Next文が苦手でいまいちわかりません。

解決策ありましたら教えてください。

Sub sample()

Sheets("Sheets2").Select

Dim i As Long, cnt As Long, oRange As Range
i = 2
Set ID = Worksheets("Sheets2").Cells(i, 1)

Do While Worksheets("Sheets2").Cells(i, 1) <> ""

Sheets("Sheets1").Select

If ID Is Nothing Then

Worksheets("Sheets1").Cells.Find(what:=ID _
, After:=Worksheets("Sheets1").Cells(i, 1) _
, LookIn:=xlValues _
, LookAt:=xlWhole _
, SearchOrder:=xlByRows _
, SearchDirection:=xlNext _
, MatchCase:=False _
, MatchByte:=False _
, SearchFormat:=False).Activate

If ID Is Nothing Then

Else
ActiveCell.Interior.Color = "Red"
i = i + 1

Loop

End Sub