Need code

[atf32]

Using MS Excel 2007

Need code to go to the first row of a named range. I'm looking for something that I can pass the name of the range and the code will highlight the first row of the targeted range. The range will have three columns and a fluctuating number of rows (may be 5, may be 15). One column is test, the last two are numbers. So whenever I refer to it, I want to highlight the first row.

 

[Jerry Sullivan]

Here's one way...

With Range("MyRange")
    .Resize(1).Interior.Color = vbYellow
End With

 

[Jerry Sullivan]

Re-reading your post, it sounds like you might be wanting a function that you can call instead of code that you place inside your main procedure.

If that's correct, you could do something like this.

Function ColorTopRow(sRangeName As String)
    With Range(sRangeName)
        .Resize(1).Interior.Color = vbYellow
    End With
End Function

The you call the function with your range name from another procedure like this...

ColorTopRow "MyRange"

 

[venkat1926]

you can try this macro suppose "rv" is the name of the range

Sub test()
Range("rv").Cells(1, 1).EntireRow.Select
End Sub

but the first row may be the headings if so then change the second line as

range("rv").cells(2,1).entirerow.select

 

[atf32]

Is it possible to only include the columns of the range? So if the range it 10 rows, 5 columns, the code will only select the first row and five columns.

 

[atf32]

Not quite. your code is great, but perhaps I worded the question incorrectly. I want to select the first row of the range (and just the columns of the range).....not highlight the row.

 

[Jerry Sullivan]

Not quite. your code is great, but perhaps I worded the question incorrectly. I want to select the first row of the range (and just the columns of the range).....not highlight the row.

You could SELECT the top row of cells within the range like this:

Range("MyRange").Resize(1).Select

...However if you are planning on having your VBA code do anything with those Cells,
then using .Select is inefficient compared to just applying the Method or Properties to the range reference directly.

So please don't do this...

Range("MyRange").Resize(1).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A2").Select
Selection.PasteSpecial (xlPasteAll)

Instead do this...

Range("MyRange").Resize(1).Copy _
   Destination:=Sheets("Sheet2").Range("A2")

 

[atf32]

Thanks for the help. I can use this.