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