Can someone show me the code to select the current row and the 2 above it?

hi
try this...
Range(ActiveCell.EntireRow, ActiveCell.Offset(-2, 0)).Select

regards
FSt1

"RocketRod" wrote:

Can someone show me the code to select the current row and the 2 above it?

On Sun, 5 Oct 2008 19:52:01 -0700, RocketRod
wrote:

Can someone show me the code to select the current row and the 2 above it?

===========================================
Dim rg As Range
Dim lNumRows As Long
lNumRows = Application.WorksheetFunction.Min _
(3, ActiveCell.Row)

Set rg = ActiveCell.Offset(-lNumRows + 1, 0).EntireRow
Set rg = rg.Resize(rowsize:=lNumRows)

rg.Select
=================================================
--ron

maybe this?

ActiveCell.Offset(-2).Resize(3).EntireRow.Select

--


Gary

"RocketRod" wrote in message
...
Can someone show me the code to select the current row and the 2 above it?

Here's one more for you to consider...

Rows((ActiveCell.Row - 2) & ":" & ActiveCell.Row).Select

Although you might want to put in a check to make sure the active cell is at
Row 3 or greater...

If ActiveCell.Row 2 Then Rows((ActiveCell.Row - 2) & _
":" & ActiveCell.Row).Select

And, if you use a With block whose reference is the ActiveCell then either
this...

With ActiveCell
.....
Rows((.Row - 2) & ":" & .Row).Select
.....
End With

or this...

With ActiveCell
.....
If .Row 2 Then Rows((.Row - 2) & ":" & .Row).Select
.....
End With

depending on if you need to check the active cell's row number for being
greater than 2 or not.

--
Rick (MVP - Excel)


"RocketRod" wrote in message
...
Can someone show me the code to select the current row and the 2 above it?