Function basRandomNum(Lower As Long, Upper As Long)
basRandomNum = VBA.Int((Upper - Lower + 1) * VBA.Rnd + Lower)
End Function
Function basRandomNum(Lower As Long, Upper As Long)
basRandomNum = VBA.Int((Upper - Lower + 1) * VBA.Rnd + Lower)
End Function