Public Function NZ(CheckVar As Variant, Optional ValIfNull As Variant) As _
Variant If IsNull(CheckVar) Then If IsMissing(ValIfNull) Then ' this translates to "" for strings, and 0 for numbers NZ = Empty Else NZ = ValIfNull End If Else NZ = CheckVar End If End Function |