MCheru,

Try this code. Hope it helps.

Sub MyRoutine

nRow_ctr = 1

Do While Worksheets("Sheet1").Range("B" & nRow_ctr) < ""
If Left(Worksheets("Sheet1").Range("B" & nRow_ctr), 2) = 20 Or _
Left(Worksheets("Sheet1").Range("B" & nRow_ctr), 2) = 30 Or _
Left(Worksheets("Sheet1").Range("B" & nRow_ctr), 2) = 40 Then
Worksheets("Sheet1").Range("A" & nRow_ctr) = Left(Worksheets
("Sheet1").Range("B" & nRow_ctr), 1) & "ZZP"
End If

nRow_ctr = nRow_ctr + 1

If Worksheets("Sheet1").Range("B" & nRow_ctr) = "" Then
Exit Sub
End If
Loop

"MCheru" wrote:

I need help with a macro. Here is what I am trying to do. Search every cell
in Column B. When the first two numbers are 20 then 2ZZP will be entered to
the left of that cell in Column A. When the first two numbers are 30 then
3ZZP will be entered to the left of that cell in Column A. When the first
two numbers are 40 then 4ZZP will be entered to the left of that cell in
Column A. Can you help me with this?