Public Function Between(Val As Variant, From1 As Variant, To1 As Variant, Optional From2 As Variant, Optional To2 As Variant, Optional From3 As Variant, Optional To3 As Variant, Optional From4 As Variant, Optional To4 As Variant) As Boolean

If Val >= From1 And Val <= To1 Then Between = True: Exit Function
If Not (IsMissing(From2) Or IsMissing(To2)) Then If Val >= From2 And Val <= To2 Then Between = True: Exit Function
If Not (IsMissing(From3) Or IsMissing(To3)) Then If Val >= From3 And Val <= To3 Then Between = True: Exit Function
If Not (IsMissing(From4) Or IsMissing(To4)) Then If Val >= From4 And Val <= To4 Then Between = True: Exit Function
Between = False

End Function