Public Function Coalesce(ParamArray x() As Variant) As Variant Dim i As Long Dim iMin As Long Dim iMax As Long Dim result As Variant iMin = LBound(x) iMax = UBound(x) result = Null For i = iMin To iMax If Not IsNull(x(i)) Then result = x(i) Exit For End If Next Coalesce = result End Function
ScrewTurn Wiki version 3.0.1.400. Some of the icons created by FamFamFam. Except where noted, all contents Copyright © 1999-2024, Patrick Jasinski.