Use the following function:

Function nozero(rng)
Application.Volatile True
For Each cl In rng
If cl.Value < 0 Then
StrBack = StrBack & cl.Value
End If
Next
nozero = StrBack
End Function

http://HelpExcel.com

"danlinksman" wrote:

If cells 1 thru 7 are each a zero ( 0 ) and cell 8 is a Z how do I write a
formula that returns Z if Zero is not present in every one of the 8 cells.

Example

0 0 0 0 0 0 0 0 Z = Z

0 0 0 0 0 0 0 0 0 = 0

A 0 0 0 0 0 0 0 0 =A