Thread: Range representing a single row of a named range

Hi guys,

I have a named range called "DATA" in a worksheet (its about 100rows x 20cols) and I'm trying to write some code to return a range that represents a single row of range("DATA") based upon the active cell. However I don't want EntireRow.

To do this I'm using Worksheet_SelectionChange(ByVal Target As Range) event and I've used the Intersect function to test that Target is in Range("DATA").

Then for example:

Imagine Range("DATA") is C10:V110. When I select K43 ie Target is K43, I want the range C43:V43 to be returned to a variable in VBA.

How can I do this?

Thanks in advance

Jonny

Thanks guys,

You've solved my problem. Here's what I was trying to do...underline active row of range DATA with a medium weight border.

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

 
    'Thick lines beneath Active Row - but ONLY in DATA range
    
    If Not Intersect(Target, Range("DATA")) Is Nothing Then
    
    Application.ScreenUpdating = False
        
    Dim X As Integer
    Dim rngDATArow As Range
        
    X = Range("DATA").Cells(1, 1).Row - Cells(1, 1).Row
     
    Set rngDATArow = Range("Data").Rows(Target.Row - X)
    
    With Range("DATA")
        .Borders(xlInsideHorizontal) _
        .Weight = xlThin
    End With
    
    With rngDATArow
        .Borders(xlEdgeBottom) _
        .Weight = xlMedium
    End With
    
    Application.ScreenUpdating = True
    End If
    
End Sub