Not the most elegant solution I expect, but:

Sub CopyMatches()
Dim lRowSource As Long
Dim lRowDestination As Long
lRowSource = 2
lRowDestination = 2
While Not IsEmpty(Worksheets("Info").Cells(lRowSource, 1))
If Worksheets("Info").Cells(lRowSource, 1).Value = _
Worksheets("Info").Cells(2, 2).Value Then
Worksheets("Report").Cells(lRowDestination, 1).Value = _
Worksheets("info").Cells(lRowSource, 3).Value
lRowDestination = lRowDestination + 1
End If
lRowSource = lRowSource + 1
Wend
End Sub

--
Return email address is not as DEEP as it appears
"sympatico" wrote in message
...
Hey everyone,

Im trying to loop through a column of values and if they equal to a
certain
value, print the list of relevant values on a different sheet.

e.g. somthing along these lines

Dim number

Sheets("Info").Select
number = Range("B2").Select

Range("A2").Select

Do Until IsEmpty(ActiveCell)

If (ActiveCell = number) Then

Selection.Offset(0, 2).Copy

!-- then i want to copy in a different sheet this value and move to the
next
value, then copy the next value into the other sheet and so on --!

End If

Loop