Sub FindRangeName()
Dim oName As Name, oRng As Range, oCell As Range
On Error Resume Next
For Each oName In ActiveWorkbook.Names
  Set oRng = Range(oName.Name)
  If Err = 0 Then
    With ActiveWindow.ActivePane.VisibleRange.Cells(1, 1)
      If Not Intersect(.Address, oRng) Is Nothing Then
        If oRng.Address = .EntireColumn.Address Then _
        MsgBox "The Name " & oName.Name & " spans " & .EntireColumn.Address
      End If
    End With
    Err = 0
  End If
Next
End Sub