The code as below:

Set fCell = Columns("Q:Q").Cells
Set aCell = fCell.Find(What:=0, LookIn:=xlValues, After:=Range("Q3"), _
SearchOrder:=xlByColumns)
MsgBox aCell.Cells.Count

If there are more than one cell are 0 value, The Msgbox always return 1.
What i can do? so it may be return the range which cell contain 0 value.

Many Thanks