1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11:
Sub OB7() ActiveSheet.Shapes("TextBox1").Select Selection.Formula = "'Detail View'!A115:E132" Range("K82").Select End Sub Sub OB78() ActiveSheet.Shapes("TextBox1").Select Selection.Formula = "'Detail View'!A134:E151" Range("K82").Select End Sub