one way
Sub ifallthree()
For Each c In Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
If Application.CountA(Rows(c.Row)) = 3 Then ms = ms & " " & c
Next
MsgBox ms
End Sub

--
Don Guillett
SalesAid Software

"Pong" wrote in message
...
Hi,

I have a database and we would like to do some sorting. My data may looks
like below

Ron 1 3
Jes 2 7
Dan 3
Raj 4 5
Ali 5
Lily 6 2

I have data in column A, B & C. I would like to do a sorting to show the
name on other worksheet HORIZONTALLY if both column B & C are bigger than
0.
The result should like this

Ron Jes Raj Lily

Any idea?