Select Range of Cells - Gone blank

[GiraffetheGeek]

Hi there,

I am a beginner with VB so forgive me is this is an elementary error

I have gone blank. I've sat here for the last 15 minutes and for the life of me cannot remember how to do this.

I am trying to get VB to select a range of cell relative to two named cells.

I have used this

Range("TitleRow").Offset(1,0):Range("LastRow").Offset(-1,14).Select

This obviously is wrong, but I cannot remember the correct way to do this.

I want it to select the range of cells 1 below the cell named TitleRow over to the cell 1 above and 14 to the right of the cell "LastRow".

Once I get this working the offset values will change depending on a value selected in another cell by the user, but it's just this line that is bafflling me.

 

[shg]

    Range(Range("TitleRow").Offset(1, 0), Range("LastRow").Offset(-1, 14)).Select

 

[andiemac]

Are you calling out what TitleRow and LastRow are? Depending on your active range, and if the data is coniguous:

Sub LstRow()
Dim LastRow As Long
ActiveCell.End(xlDown).Select
LastRow = ActiveCell.Row
Range("A1:N" & LastRow ).Select
End Sub

If it's not contiguous swap out the ActiveCell.End(xlDown).Select line with

Range("A60000").End(xlUp).Select

 

[GiraffetheGeek]

Thanks shg, thats the change I needed to make. Looking at it now it seems simple!!

Sorry andiemac being new to vb I didn't quite understand your code, but will keep it in mind to look at later as I progress.

 

[shg]

You're welcome, glad it worked for you.