You can try something like this (UNTESTED)
Private Sub WorkSheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("ActionDisplay")) Is Nothing Then
Select Case Target.Column
Case 5 To 12: Call Find_Action_RPI_Info
End Select
ElseIf Not Intersect(Target, Range("ActionTotalDisplay")) Is Nothing Then
If Target.Column = 13 Then Call Action_Total_RPI_Info
ElseIf Not Intersect(Target, Range("TotalDisplay")) Is Nothing Then
Select Case Target.Column
Case 5 To 12: Call CM_Action_Total_RPI_Info
End Select
ElseIf Not Intersect(Target, Range("GroupTotal")) Is Nothing Then
If Target.Column = 13 Then Call GroupDisplay
ElseIf Not Intersect(Target, Range("PastDue")) Is Nothing Then
Select Case Target.Column
Case 7, 9: Call PastDueDisplay
End Select
ElseIf Not Intersect(Target, Range("PastDueTotal")) Is Nothing Then
Select Case Target.Column
Case 7, 9: Call PastDueTotalDisplay
End Select
End If
End Sub