I have the following macro in my workbook.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Range("AV10:AZ10")) Is Nothing Then
If IsNumeric(Target) Then
Call ShowRanges
End If
End If
If Not Intersect(Target, Range("AU1")) Is Nothing And...