Select range using End(xlUp).Row + 1

[H4rri]

I'm pulling my hair (what's left of it) out over this stupid little idea!

I'm trying to add a dataset to the last available row, all works fine. Then I want to select the row and place a border around it.

I can do it statically with:

ActiveSheet.Range("C1:F4").Select

But it just won't do it dynamically with:

Dim ws, iRow
Set ws = Sheets("Sheet1")
iRow = ws.Cells(Rows.Count, 1).End(xlUp).Row + 1
ActiveSheet.Range("A" & iRow & ":F" & iRow & ").Select

I can't see what's wrong, any idea's? Obviously these are only the relevant code snippets, the rest is mundane and working fine.


Steve

 

[JackDanIce]

Does this work?

Dim ws as Worksheet
Dim iRow as Long

Set ws = Sheets("Sheet1")
With ws
    .Select
    iRow = .Cells(Rows.Count, 1).End(xlUp).Row + 1
    .Range("A" & iRow & ":F" & iRow).Select
End With

 

[Firefly2012]

Hi Steve

You have an unnecessary & " in there:

ActiveSheet.Range("A" & iRow & ":F" & iRow).Select

However, please note it is rarely necessary to Select anything