... up with a lengthy formula such as this:=IF(AND(A1>=0,A1<=9999.99),A1*0.08,IF(AND(A1> =10 000,A1< =19 999.99),A1*0 .10 5,IF(AND(A1>=20000,A1<=39999.99),A1*0 .12 ,IF(A1>=40000,A1*0 .14 ,0))))This ... rng2.Parent.Name ThenIf Union(rng1, rng2).Address = rng2.Address ThenInRange = TrueEnd IfNote4799-2 ch 11. F 6 /11 / 01 9: 31 AM Page 3053 01 Chapter 11 ✦ VBA Programming Examples and TechniquesYou ... 0NoteNote4799-2 ch 11. F 6 /11 / 01 9: 31 AM Page 299277Chapter 10 ✦ Creating Function ProceduresFor i = StringLength To 1 Step -1 Reverse = Reverse & Mid(InString, i, 1) Next iEnd FunctionWhen...