Names, Ranges and Offsets

[benbuin]

I use the following code to copy the contents of a named range

srcwbk.Names(nameFull).RefersToRange.Copy

If I wanted to use the whole range - except for the first row, is there and easy way to acheive this.

Thanks,
Richard

[DKenny]

This should get you started.

Sub BenbuinRange()
Dim nameFull As String
Dim rngFullRange As Range
Dim rngNoHeader As Range
    
    nameFull = "testrange"
    Set rngFullRange = ThisWorkbook.Names(nameFull).RefersToRange
    
    With rngFullRange
        Set rngNoHeader = .Range(.Cells(2, 1), .Cells(.Rows.Count, .Columns.Count))
    End With
    
    rngNoHeader.Copy
    
    'rest of your code
    
    Set rngFullRange = Nothing
    Set rngNoHeader = Nothing
End Sub